(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    251825,       6188]
NotebookOptionsPosition[    244427,       5953]
NotebookOutlinePosition[    244782,       5969]
CellTagsIndexPosition[    244739,       5966]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"timesteps", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"unit", "=", "0.005"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SeedRandom", "[", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"truex", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"truea", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"truev", "=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"trueX", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"trueV", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"trueA", "=", 
   RowBox[{"Array", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"0", "#1"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{"timesteps", ",", "3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"trueX", ",", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"trueV", ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "0"}], ",", 
    RowBox[{"i", "<", 
     RowBox[{"timesteps", "-", "1"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"truea", "=", 
      RowBox[{
       RowBox[{"RandomVariate", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", "]"}], ",", "2"}], "]"}], " ", 
       "unit"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"truev", "=", 
      RowBox[{"truev", "+", 
       RowBox[{"truea", " ", "t"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"truex", "=", 
      RowBox[{"truex", "+", 
       RowBox[{"truev", " ", "t"}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"trueX", ",", " ", "truex"}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"trueV", ",", " ", "truev"}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"accamp", "=", "0.00001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"accbursts", "=", 
   RowBox[{"Random", "[", 
    RowBox[{"Integer", ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "0"}], ",", 
    RowBox[{"i", "<", "accbursts"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"axis", "=", 
      RowBox[{"Random", "[", 
       RowBox[{"Integer", ",", " ", 
        RowBox[{"{", 
         RowBox[{"1", ",", " ", "3"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"center", " ", "=", " ", 
      RowBox[{"Random", "[", 
       RowBox[{"Integer", ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"timesteps", "/", "5"}], ",", " ", 
          RowBox[{"4", "*", 
           RowBox[{"timesteps", "/", "5"}]}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"width", "=", 
      RowBox[{"Random", "[", 
       RowBox[{"Integer", ",", " ", 
        RowBox[{"{", 
         RowBox[{"1", ",", " ", 
          RowBox[{"timesteps", "/", "2"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"amp", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Random", "[", "]"}], "-", "0.5"}], ")"}], "*", "accamp"}]}],
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"tt", "=", "1"}], ",", 
       RowBox[{"tt", "\[LessEqual]", "timesteps"}], ",", 
       RowBox[{"tt", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"trueA", "[", 
          RowBox[{"[", 
           RowBox[{"tt", ",", "axis"}], "]"}], "]"}], "+=", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"tt", "-", "center"}], ")"}], "^", "2"}]}], "/", 
              "2"}], "/", "width"}], "/", "width"}], "]"}], "amp"}]}], 
        ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]",
    "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"netA", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"trueA", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"trueA", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"trueA", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "^", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tta", "=", 
   RowBox[{"trueA", "+", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "timesteps"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ttta", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"tta", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"tta", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"tta", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "^", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"netA", ",", "ttta"}], "}"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.547180787177442*^9, 3.547180856483077*^9}, {
   3.547180966737177*^9, 3.547181057463855*^9}, {3.547182558733253*^9, 
   3.547182819345566*^9}, {3.547182859308879*^9, 3.54718286032415*^9}, {
   3.547183147353368*^9, 3.547183201302299*^9}, {3.547183252772436*^9, 
   3.547183264693921*^9}, {3.5471834922344837`*^9, 3.5471834929306726`*^9}, 
   3.547183570098542*^9, {3.547183865237287*^9, 3.547183902327771*^9}, 
   3.547184705174094*^9, {3.547187234349923*^9, 3.547187243381007*^9}, {
   3.547187327360018*^9, 3.547187327736206*^9}, {3.547188962038454*^9, 
   3.5471889802039213`*^9}, {3.547214419348147*^9, 3.547214422498101*^9}, {
   3.5472376155821247`*^9, 3.547237615670628*^9}, {3.547237899066346*^9, 
   3.54723790254884*^9}, 3.5472404162201653`*^9, {3.547317888772533*^9, 
   3.547317889140977*^9}, {3.547349715659751*^9, 3.547349961567753*^9}, {
   3.5473500483704767`*^9, 3.5473502163438187`*^9}, {3.5473502481910887`*^9, 
   3.5473503293432693`*^9}, {3.5473503648177357`*^9, 3.547350384492684*^9}, {
   3.547350572970887*^9, 3.54735058149786*^9}, {3.5473506910805483`*^9, 
   3.547350693811694*^9}, {3.54735072839015*^9, 3.547350732176201*^9}, {
   3.547350779275324*^9, 3.54735083267854*^9}, {3.5473509140937357`*^9, 
   3.5473509182188396`*^9}, {3.547353033539144*^9, 3.547353034225724*^9}, {
   3.547353407903919*^9, 3.547353450904257*^9}, {3.547353700278528*^9, 
   3.547353769540839*^9}, {3.547353803900731*^9, 3.547353838667396*^9}, {
   3.5473539129935293`*^9, 3.547353913484939*^9}, {3.547358683167211*^9, 
   3.5473587730116453`*^9}, {3.5474965017005863`*^9, 3.547496502123087*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw10F9Ik1EYx/HNFdPCSokU1OWWNBk1nU4zddtv891cQ4NiuYtS84VVLthW
0R/KokkQbEREQcNpRLMwDIZa6fpD0sxt0mggtYzmbmoXUVQKWhpR0fscOBw+
53vz8IhZx25rBo/Hq/h7/73/zzdNfHrvx/nM52ruA/VbQ8FBEzkT7feDBUNu
8jqwfsfpM1HyesyYtWsOC0Oc89Hj9f18xJALYT+nOnLCRS5Gv9/aeewpWQLZ
6Mlx8w9yCRauFsWvKSY4b0bB+97U9UPkUjilRsdEL1kGUZY950aMvAXT7yzh
2SWyHFUv/VF3yQvO5ehb4TMum8gKGL6unUvayRWo+7D4oPQKuRJyKZsnGCEr
sc/bLRx4Ta5Ch05/gVkiV8PS8uRhQjzJeRv0eW1z+c3kGgREdyIHusjb4VTe
HBgPkGshaXXemkqT69DhGNszUxzmXI/OwWqxoJWsgjvlOV7ZQ1aDLf/tVSXI
GpQJ2xc/50Y4A+zBU/zcJs7nAVHRkM3joq7FqovZm5qGqWshC/rG2pLUdZCf
jabS/CjXdfj0bHVcvJEzrwHJkPKXVUm9Abaux90SLXUGX1be9swy1Bl8j1nu
1Wio65EhYlrSZdT16Bu9axrZQN0Am/JSlmue5jPg6PIrhWGS5muExslOZV+m
3ohYxOxYaKZuRLx2536FgLoR1jd6Jz9A+9oBaaLwbXBXWP0HblHhhA==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData["
1:eJxF0lsopHEYx/F3XY1ChsEoOeWc0xywljG/Me8Yk6R2cUVEJCVkCnshtq2t
mQ1xMZRm7ki5EULt3oly4Xwj5cI4lSlnidnFRO/vX09Pn+d7+49raP/a5CcI
gvptfPv9XentKTnHzy+X+o8D1u2zR7QMnk6nmw6Golx2RitQWfbooZUo0Fjv
6ShEmPsEr+RY6LPCguh4bF5ooukExG9sZ9NJyPh+ZKJTcHJZVUunYXpC2U2n
Y8kaOkpnolGRPktnY/9c3KZVUNfrbmk18mJvwv9J1sBm1BXSWvRMPDTQOTj1
3troXLh++M/TeTCc+R/Sn/Fpd1X2X3I+OlVyLf0F3b+W6+gC2CzDdroQ7arm
RVoHx0iAmy6CcaYq6EWyHsuPinwa+NsT0yi5H3A+lf1mN0Cs6ZpnN8Cx1nHA
XozWu2HB92/eezFUQ3MhkgUj3FvyBHYjVvacWnYRx4YKkV3En8rIb+wmJJ/c
1bObsNRy0MZegq7rtV72EmSmLv5kN2PcMjXIbkaufMzBXgrrgs3FXorAnYFJ
dgsSqwdmfH4FCS//Hg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.5473537633728037`*^9, 3.5473538588623543`*^9}, {
   3.5473538919196863`*^9, 3.54735394276085*^9}, 3.547358705696714*^9, {
   3.547358756690579*^9, 3.547358773917879*^9}, {3.547359254195786*^9, 
   3.547359264459043*^9}, {3.547359394935014*^9, 3.547359453512619*^9}, {
   3.5473594848150997`*^9, 3.547359512120905*^9}, {3.547496192807707*^9, 
   3.547496200952312*^9}, {3.5474964894285593`*^9, 3.547496528430745*^9}, {
   3.547776384420953*^9, 3.547776385427088*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[GreaterEqual]", "."}]], "Input",
 CellChangeTimes->{{3.5477763843517857`*^9, 3.5477763844937696`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547350002729841*^9, 3.547350045422202*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1.2", ",", "0", ",", "0"}], "}"}], ".", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.547358963728023*^9, 3.547358979627203*^9}}],

Cell[BoxData["1.2`"], "Output",
 CellChangeTimes->{{3.547358972230832*^9, 3.547358980407831*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], "}"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"rot", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "//", 
   "MatrixForm"}]}]}], "Input",
 CellChangeTimes->{{3.5473511723913527`*^9, 3.547351190133604*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.547351179235881*^9, 3.54735119051103*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5473511957672787`*^9, 3.547351195802147*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t", "=", "1"}]], "Input",
 CellChangeTimes->{{3.547350873322693*^9, 3.5473508746523323`*^9}, {
  3.5473511760245867`*^9, 3.547351176639337*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.547351177283038*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"X", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"state", " ", 
      RowBox[{"vector", "  ", "--"}], "  ", "pitch"}], ",", " ", "roll", ",", 
     " ", "drift_pitch", ",", " ", "drift_roll"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", 
     RowBox[{"{", " ", 
      RowBox[{"0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"covariance", " ", "matrix"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Z", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Zerr", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"transition", " ", 
      RowBox[{"model", " ", "--"}], " ", "keep", " ", "previous", " ", 
      "angle"}], ",", " ", 
     RowBox[{
     "subtract", " ", "the", " ", "drift", " ", "anticipating", " ", 
      "correction", " ", "by", " ", "readings"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"F", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", "0", ",", " ", 
         RowBox[{"-", "t"}], ",", " ", "0"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", 
         RowBox[{"-", "t"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], 
       ",", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "0", ",", " ", "0", ",", " ", "1"}], "}"}]}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"control", " ", 
     RowBox[{"model", " ", "--"}], " ", "update", " ", "angles", " ", "from", 
     " ", "gyros", " ", "readings"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"B", "=", 
     RowBox[{"t", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", "0"}], "}"}], ",", 
        " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"system", " ", "evolution"}], " ", "*)"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"H", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", " ", "0", ",", " ", "0"}], "}"}]}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"predX", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"X", ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}]}], 
     "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"predX", ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"P", ",", 
      RowBox[{"0.000", 
       RowBox[{"IdentityMatrix", "[", "4", "]"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"SeedRandom", "[", "0", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "2"}], ",", 
      RowBox[{"i", "<=", "timesteps"}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"truex", "=", 
        RowBox[{"trueX", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"prevx", "=", 
        RowBox[{"X", "[", 
         RowBox[{"[", 
          RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"prevp", "=", 
        RowBox[{"P", "[", 
         RowBox[{"[", 
          RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
        "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"simulate", " ", "noisy", " ", "gyroscope", " ", 
         RowBox[{"(", "v", ")"}], " ", "reading"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"gyroerr", "=", "0.1"}], ";", "\[IndentingNewLine]", 
       RowBox[{"truev", "=", 
        RowBox[{"trueV", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"v", "=", 
        RowBox[{"truev", "+", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"10", " ", "unit", " ", "gyroerr", " ", 
            RowBox[{"RandomVariate", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", "]"}], ",", "2"}], "]"}]}], 
           "+", 
           RowBox[{"0", "unit", " ", 
            RowBox[{"0.3", "/", "timesteps"}], "*", "i"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"u", "=", "v"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"u", ",", " ", "0"}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"u", ",", " ", "0"}], "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Q", "=", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"gyroerr", "^", "2"}], " ", 
             RowBox[{"unit", "^", "2"}]}], ",", " ", "0", ",", " ", "0", ",", 
            " ", "0"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"0", ",", "  ", 
            RowBox[{
             RowBox[{"gyroerr", "^", "2"}], " ", 
             RowBox[{"unit", "^", "2"}]}], ",", " ", "0", ",", " ", "0"}], 
           "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "0", ",", " ", 
            RowBox[{"1", " ", 
             RowBox[{"gyroerr", "^", "2"}], " ", 
             RowBox[{"unit", "^", "2"}]}], ",", " ", "0"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0", ",", 
            RowBox[{"1", 
             RowBox[{"gyroerr", "^", "2"}], " ", 
             RowBox[{"unit", "^", "2"}]}]}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"labla", "=", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}], " ", "+", " ", 
         RowBox[{"trueA", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"accsigma", " ", "=", " ", "0.01"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"simulate", " ", "noisy", " ", "accelerometer", " ", 
         RowBox[{"(", "la", ")"}], " ", "reading"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"rot", "=", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"Cos", "[", 
              RowBox[{"truex", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
             RowBox[{"Sin", "[", 
              RowBox[{"truex", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"-", 
              RowBox[{"Sin", "[", 
               RowBox[{"truex", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ",", 
             RowBox[{"Cos", "[", 
              RowBox[{"truex", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{"truex", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", " ", "0", ",", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"truex", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"Sin", "[", 
               RowBox[{"truex", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", " ", "0", ",", 
             " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"truex", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "}"}]}]}], 
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"truela", "=", 
        RowBox[{"rot", ".", "labla"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"la", "=", 
        RowBox[{"truela", "+", 
         RowBox[{"accsigma", " ", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{
            RowBox[{"NormalDistribution", "[", "]"}], ",", "3"}], "]"}]}]}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"lalength", "=", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"la", ".", "la"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "extract", " ", "the", " ", "kalman", " ", "measurement", " ", "from",
          " ", "accelerometer", " ", "reading"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"la", " ", "=", " ", 
        RowBox[{"la", " ", "/", " ", "lalength"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "compute", " ", "the", " ", "angles", " ", "and", " ", "error"}], " ",
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"accsigmaeff", "=", 
        RowBox[{"{", 
         RowBox[{"accsigma", ",", "accsigma", ",", "accsigma"}], "}"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"1", "st", " ", 
          RowBox[{"formula", ":", " ", "pitch"}]}], " ", "=", " ", 
         RowBox[{"ArcSin", "[", 
          RowBox[{"la", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"pitch", "=", 
        RowBox[{"ArcSin", "[", 
         RowBox[{"la", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"roll", "=", 
        RowBox[{"ArcSin", "[", 
         RowBox[{
          RowBox[{"la", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "/", 
          RowBox[{"Cos", "[", "pitch", "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"pitcherr1", "=", 
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"1", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"la", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], "]"}]}], "]"}], 
         RowBox[{"accsigmaeff", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pitcherr2", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"la", "[", 
                RowBox[{"[", "2", "]"}], "]"}], 
               RowBox[{"accsigmaeff", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"la", "[", 
                RowBox[{"[", "3", "]"}], "]"}], 
               RowBox[{"accsigmaeff", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], 
          "/", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "-", 
            RowBox[{
             RowBox[{"la", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], "-", 
            RowBox[{
             RowBox[{"la", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "]"}]}], "/", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"la", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], "+", 
           RowBox[{
            RowBox[{"la", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"pitcherr", "=", 
        RowBox[{"Min", "[", 
         RowBox[{"pitcherr1", ",", "pitcherr2"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"rollerr1", "=", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"accsigmaeff", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], "+", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"pitcherr", " ", 
               RowBox[{"la", "[", 
                RowBox[{"[", "1", "]"}], "]"}], " ", 
               RowBox[{"la", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "/", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{"la", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], ")"}]}]}], 
          "]"}], "/", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"la", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "^", "2"}], "-", 
           RowBox[{
            RowBox[{"la", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"2", "nd", " ", 
          RowBox[{"formula", ":", " ", "roll"}]}], " ", "=", " ", 
         RowBox[{"ArcTan", "[", 
          RowBox[{
           RowBox[{"la", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "/", 
           RowBox[{"la", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"rollerr2", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"accsigmaeff", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], "+", 
            RowBox[{
             RowBox[{
              RowBox[{"accsigmaeff", "[", 
               RowBox[{"[", "3", "]"}], "]"}], "^", "2"}], 
             RowBox[{
              RowBox[{
               RowBox[{"la", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], "/", 
              RowBox[{
               RowBox[{"la", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}]}]}], "]"}], "/", 
          
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{
              RowBox[{"la", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], "/", 
             RowBox[{
              RowBox[{"la", "[", 
               RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}]}], ")"}]}], "/", 
         RowBox[{"la", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"rollerr", "=", 
        RowBox[{"Min", "[", 
         RowBox[{"rollerr1", ",", " ", "rollerr2"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"z", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ArcSin", "[", 
           RowBox[{"la", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", " ", 
          RowBox[{"ArcSin", "[", 
           RowBox[{
            RowBox[{"la", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "/", 
            RowBox[{"Cos", "[", 
             RowBox[{"ArcSin", "[", 
              RowBox[{"la", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], 
         "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"zerr", "=", 
        RowBox[{"{", 
         RowBox[{"pitcherr", ",", "rollerr"}], "}"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"zerr", "=", 
        RowBox[{"zerr", "+", 
         RowBox[{"0", " ", 
          RowBox[{"Pi", "/", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"Exp", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"lalength", "-", "1"}], ")"}], "^", "2"}]}], "/", 
               "2"}], "/", 
              RowBox[{"0.1", "^", "2"}]}], "]"}]}], ")"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"R", "=", 
        RowBox[{"100", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"pitcherr", "^", "2"}], ",", " ", "0"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0", ",", " ", 
             RowBox[{"rollerr", "^", "2"}]}], "}"}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"predx", " ", "=", " ", 
        RowBox[{
         RowBox[{"F", ".", "prevx"}], " ", "+", " ", 
         RowBox[{"B", ".", "u"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"predp", "=", 
        RowBox[{
         RowBox[{"F", ".", "prevp", ".", 
          RowBox[{"Transpose", "[", "F", "]"}]}], "+", "Q"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"y", "=", 
        RowBox[{"z", "-", 
         RowBox[{"H", ".", "predx"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"S", "=", 
        RowBox[{
         RowBox[{"H", ".", "predp", ".", 
          RowBox[{"Transpose", "[", "H", "]"}]}], "+", "R"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"K", "=", 
        RowBox[{"predp", ".", 
         RowBox[{"Transpose", "[", "H", "]"}], ".", 
         RowBox[{"Inverse", "[", "S", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Random", "[", "]"}], ">", "0.9"}], ",", 
         RowBox[{"Print", "[", "P", "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"updatex", "=", 
        RowBox[{"predx", "+", 
         RowBox[{"K", ".", "y"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"updatep", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"IdentityMatrix", "[", "4", "]"}], "-", 
           RowBox[{"K", ".", "H"}]}], ")"}], ".", "predp"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"predX", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "3"}], "]"}], "]"}], "=", 
        RowBox[{"X", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "3"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"predX", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "4"}], "]"}], "]"}], "=", 
        RowBox[{"X", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "4"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"predx", "=", 
        RowBox[{
         RowBox[{"F", ".", 
          RowBox[{"predX", "[", 
           RowBox[{"[", 
            RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "+", 
         RowBox[{"B", ".", "u"}]}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"predX", ",", " ", "predx"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"X", ",", " ", "updatex"}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"P", ",", " ", "updatep"}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"Z", ",", " ", "z"}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"Zerr", ",", " ", "zerr"}], "]"}], ";"}]}], 
     "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Zerrbars", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"i", "\[LessEqual]", 
       RowBox[{"Length", "[", "Zerr", "]"}]}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{"Zerrbars", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Z", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", 
              RowBox[{"Zerr", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", " ", 
             RowBox[{"Z", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Z", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}], "+", 
              RowBox[{"Zerr", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", " ", 
             RowBox[{"Z", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"Zerrbars", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Z", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", " ", 
             RowBox[{
              RowBox[{"Z", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", 
              RowBox[{"Zerr", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Z", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", " ", 
             RowBox[{
              RowBox[{"Z", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], "+", 
              RowBox[{"Zerr", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "}"}]}], 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"trueX", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", 
         RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"trueX", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", "Red", ",", 
        
        RowBox[{"Line", "[", 
         RowBox[{"X", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", " ", 
        "Green", ",", " ", 
        RowBox[{"Line", "[", "Z", "]"}], ",", 
        RowBox[{"Darker", "[", "Green", "]"}], ",", 
        RowBox[{"Line", "[", "Zerrbars", "]"}], ",", "Purple", ",", " ", 
        RowBox[{"Line", "[", 
         RowBox[{"predX", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}],
     "]"}], "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", " ", 
           RowBox[{"X", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"i", ",", " ", "1", ",", " ", 
           RowBox[{"Length", "[", "X", "]"}]}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"Evaluate", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", " ", 
           RowBox[{"X", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4"}], "]"}], "]"}]}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"i", ",", " ", "1", ",", " ", 
           RowBox[{"Length", "[", "X", "]"}]}], "}"}]}], "]"}], "]"}]}], 
     "}"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.54718317270982*^9, 3.54718322006143*^9}, {
   3.547183309224889*^9, 3.547183323146667*^9}, {3.547183438015916*^9, 
   3.547183471658536*^9}, {3.5471835034677973`*^9, 3.5471837315758247`*^9}, 
   3.547183765155417*^9, {3.5471838760356827`*^9, 3.547184142315175*^9}, {
   3.547184390087797*^9, 3.547184433082321*^9}, {3.547184491315292*^9, 
   3.547184500352838*^9}, {3.5471847960340977`*^9, 3.5471848583904047`*^9}, {
   3.547184904986333*^9, 3.547185011357499*^9}, {3.547185100841415*^9, 
   3.547185139511743*^9}, {3.547185205108899*^9, 3.547185379365378*^9}, {
   3.547186984595265*^9, 3.5471870779281387`*^9}, {3.547187139149087*^9, 
   3.547187160995459*^9}, {3.547187195365312*^9, 3.5471872150220823`*^9}, {
   3.547187264843886*^9, 3.547187296762432*^9}, {3.547187366230435*^9, 
   3.547187461406901*^9}, {3.547187737992559*^9, 3.547187831715019*^9}, {
   3.547187884220584*^9, 3.547188213980369*^9}, {3.547188281581465*^9, 
   3.547188443442522*^9}, {3.547188478461432*^9, 3.5471885728691473`*^9}, {
   3.547188603024117*^9, 3.547188604487426*^9}, {3.547188640211266*^9, 
   3.547188646607794*^9}, {3.5471886815413857`*^9, 3.547188727221141*^9}, {
   3.5471887779421453`*^9, 3.547188829420909*^9}, {3.5471888666030607`*^9, 
   3.547188888283114*^9}, {3.5471890056312113`*^9, 3.547189032080442*^9}, {
   3.5471890846532593`*^9, 3.547189091260117*^9}, {3.547189176480597*^9, 
   3.547189178667832*^9}, {3.547189217399241*^9, 3.547189232033307*^9}, {
   3.547189270926352*^9, 3.547189519631991*^9}, {3.547189561190995*^9, 
   3.547189563526782*^9}, {3.547189635272147*^9, 3.5471896501250477`*^9}, {
   3.5471897361064997`*^9, 3.547189987724585*^9}, {3.547190018750222*^9, 
   3.547190049475339*^9}, {3.547190130034494*^9, 3.5471903069682817`*^9}, {
   3.547190369869915*^9, 3.5471904109243393`*^9}, {3.547190511020475*^9, 
   3.5471905135077753`*^9}, {3.547191068407173*^9, 3.547191084309757*^9}, {
   3.547191192524652*^9, 3.547191198429422*^9}, {3.547191258058797*^9, 
   3.547191296014372*^9}, {3.547191367496634*^9, 3.547191460180231*^9}, {
   3.5472143731372337`*^9, 3.547214383722495*^9}, {3.547214444074235*^9, 
   3.547214612390698*^9}, {3.547214775592196*^9, 3.547214815149467*^9}, {
   3.547214869683487*^9, 3.547214890508223*^9}, {3.547215163592841*^9, 
   3.547215167231696*^9}, {3.547215202319023*^9, 3.547215202501935*^9}, {
   3.547215321439601*^9, 3.547215364116597*^9}, {3.5472154479385853`*^9, 
   3.547215448162562*^9}, {3.547215485675062*^9, 3.5472154858563833`*^9}, {
   3.5472234155625277`*^9, 3.547223518980186*^9}, {3.5472235630639067`*^9, 
   3.54722360305917*^9}, {3.547223641611947*^9, 3.5472236712698317`*^9}, {
   3.54722372832768*^9, 3.547223739816972*^9}, {3.54722378717358*^9, 
   3.547223830408044*^9}, {3.547223862252687*^9, 3.5472238630732727`*^9}, {
   3.547223968602716*^9, 3.5472240483372498`*^9}, {3.5472240831042337`*^9, 
   3.5472240850478992`*^9}, {3.547224638358164*^9, 3.5472247065985727`*^9}, {
   3.547224782752977*^9, 3.547224801816721*^9}, 3.547224835103148*^9, {
   3.54722488110376*^9, 3.547224887639551*^9}, {3.547224920373193*^9, 
   3.547224937172789*^9}, {3.547226981061389*^9, 3.547226992386825*^9}, {
   3.5472270679552298`*^9, 3.54722721438209*^9}, {3.5472272612045717`*^9, 
   3.547227265534582*^9}, {3.5472272962042522`*^9, 3.547227348375966*^9}, {
   3.547227421885902*^9, 3.5472274263509817`*^9}, {3.5472281521528063`*^9, 
   3.5472283321284437`*^9}, {3.5472283952458553`*^9, 3.547228397724801*^9}, {
   3.5472284441318703`*^9, 3.547228446939947*^9}, {3.547229015174922*^9, 
   3.547229025841015*^9}, 3.5472349583140087`*^9, {3.5472351026404743`*^9, 
   3.547235133612884*^9}, {3.5472352152828903`*^9, 3.547235226288878*^9}, {
   3.547235261257381*^9, 3.54723534883323*^9}, {3.547235399501067*^9, 
   3.547235479234899*^9}, {3.547236850730752*^9, 3.547236977751525*^9}, {
   3.5472370813824883`*^9, 3.54723708825635*^9}, {3.547237149856999*^9, 
   3.5472372335766907`*^9}, {3.54723729303335*^9, 3.547237293826232*^9}, {
   3.54723734651012*^9, 3.547237353539976*^9}, {3.547237452155315*^9, 
   3.547237452323614*^9}, {3.547237498479392*^9, 3.547237516166061*^9}, {
   3.5472375764761887`*^9, 3.5472375913314037`*^9}, {3.54723767259369*^9, 
   3.547237673365199*^9}, {3.547237905433633*^9, 3.5472379067243958`*^9}, {
   3.547237954143732*^9, 3.547238002517832*^9}, {3.547238196750307*^9, 
   3.547238196864217*^9}, {3.54723824605965*^9, 3.54723825403084*^9}, 
   3.54723896463947*^9, {3.547239225783506*^9, 3.5472394254092073`*^9}, {
   3.547239471515463*^9, 3.54723950723316*^9}, {3.547240047903561*^9, 
   3.5472400830229197`*^9}, {3.54724011586849*^9, 3.547240118980405*^9}, {
   3.547240324155478*^9, 3.5472403242769012`*^9}, {3.547240358584869*^9, 
   3.547240407898395*^9}, {3.547317963643168*^9, 3.5473179678632402`*^9}, {
   3.547347727256797*^9, 3.547347791092518*^9}, {3.5473478313282967`*^9, 
   3.547347836825983*^9}, {3.547350432881308*^9, 3.54735050130704*^9}, 
   3.5473505371942883`*^9, {3.547350598506095*^9, 3.54735060848621*^9}, {
   3.547350653274637*^9, 3.547350656857749*^9}, {3.547350950212171*^9, 
   3.547350964691531*^9}, 3.547351007086905*^9, {3.547351048803103*^9, 
   3.547351081674755*^9}, {3.547351143135181*^9, 3.547351167831493*^9}, {
   3.5473512010744743`*^9, 3.54735138281894*^9}, {3.547352003524598*^9, 
   3.547352017288026*^9}, {3.547352053530199*^9, 3.547352137897575*^9}, {
   3.547352171153584*^9, 3.54735234708823*^9}, {3.5473523820204773`*^9, 
   3.547352384211623*^9}, {3.54735278075224*^9, 3.547352975802191*^9}, 
   3.547353057890032*^9, {3.547353125043901*^9, 3.5473533461405087`*^9}, 
   3.547353376571821*^9, {3.547353484568304*^9, 3.5473535516166363`*^9}, 
   3.5473536788271627`*^9, 3.547354428154984*^9, {3.547357969982663*^9, 
   3.547358010035404*^9}, {3.547358040461685*^9, 3.5473581398179073`*^9}, {
   3.547358175453102*^9, 3.547358195053808*^9}, 3.547358228863881*^9, {
   3.547358259302836*^9, 3.5473582768701687`*^9}, {3.5473583152089977`*^9, 
   3.5473583339638166`*^9}, {3.5473584066867523`*^9, 3.547358430235811*^9}, {
   3.547358547992639*^9, 3.5473585494862003`*^9}, {3.547358590607216*^9, 
   3.547358610763792*^9}, {3.547358806165633*^9, 3.547358851745524*^9}, {
   3.547358958204197*^9, 3.547358959032708*^9}, {3.547359073039357*^9, 
   3.547359106911655*^9}, {3.547359138946151*^9, 3.547359220048719*^9}, {
   3.547496277440043*^9, 3.547496277667905*^9}, {3.547496392041876*^9, 
   3.5474964135058537`*^9}, {3.54749644787385*^9, 3.547496456862939*^9}, {
   3.547496539263533*^9, 3.5474965875772943`*^9}, {3.5474967352724133`*^9, 
   3.547496737136956*^9}, {3.54776058290591*^9, 3.547760615249011*^9}, {
   3.547776160623602*^9, 3.547776165379607*^9}, 3.547776202706911*^9, {
   3.5477762759499903`*^9, 3.547776343091605*^9}, {3.547776395740707*^9, 
   3.547776419732573*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.499937501829859`*^-7", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.499937501829859`*^-7", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "2.5000000000000004`*^-7", ",", "0.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.5000000000000004`*^-7"}],
       "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7"}], "}"}]}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.547776402967437*^9, 3.547776420166625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.499937501829859`*^-7", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.499937501829859`*^-7", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "2.5000000000000004`*^-7", ",", "0.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.5000000000000004`*^-7"}],
       "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6"}], "}"}]}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.547776402967437*^9, 3.547776420178252*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.499937501829859`*^-7", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.499937501829859`*^-7", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "2.5000000000000004`*^-7", ",", "0.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.5000000000000004`*^-7"}],
       "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00015673881657796875`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00015673881657796878`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00019334776972828978`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0001933477697282898`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6"}], "}"}]}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.547776402967437*^9, 3.547776420191049*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.499937501829859`*^-7", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.499937501829859`*^-7", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "2.5000000000000004`*^-7", ",", "0.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.5000000000000004`*^-7"}],
       "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00015673881657796875`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00015673881657796878`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00019334776972828978`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0001933477697282898`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6"}], "}"}]}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.547776402967437*^9, 3.547776420211897*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.499937501829859`*^-7", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.499937501829859`*^-7", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "2.5000000000000004`*^-7", ",", "0.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.5000000000000004`*^-7"}],
       "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00015673881657796875`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00015673881657796878`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00019334776972828978`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0001933477697282898`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0003243468135680682`", ",", "0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0003243468135680682`", ",", "0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`", ",", 
       "3.872947739235865`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`", ",", 
       "3.872947739235864`*^-6"}], "}"}]}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.547776402967437*^9, 3.547776420227026*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.499937501829859`*^-7", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.499937501829859`*^-7", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "2.5000000000000004`*^-7", ",", "0.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.5000000000000004`*^-7"}],
       "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00015673881657796875`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00015673881657796878`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00019334776972828978`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0001933477697282898`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0003243468135680682`", ",", "0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0003243468135680682`", ",", "0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`", ",", 
       "3.872947739235865`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`", ",", 
       "3.872947739235864`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0003730259400711304`", ",", "0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0003730259400711304`", ",", "0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`", ",", 
       "4.015708465377097`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`", ",", 
       "4.0157084653770966`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00042290384915268125`", ",", "0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00042290384915268125`", ",", "0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`", ",", 
       "4.14070057102256`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`", ",", 
       "4.1407005710225595`*^-6"}], "}"}]}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.547776402967437*^9, 3.5477764202430964`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.499937501829859`*^-7", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.499937501829859`*^-7", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "2.5000000000000004`*^-7", ",", "0.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.5000000000000004`*^-7"}],
       "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00015673881657796875`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00015673881657796878`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00019334776972828978`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0001933477697282898`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0003243468135680682`", ",", "0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0003243468135680682`", ",", "0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`", ",", 
       "3.872947739235865`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`", ",", 
       "3.872947739235864`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0003730259400711304`", ",", "0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0003730259400711304`", ",", "0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`", ",", 
       "4.015708465377097`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`", ",", 
       "4.0157084653770966`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00042290384915268125`", ",", "0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00042290384915268125`", ",", "0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`", ",", 
       "4.14070057102256`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`", ",", 
       "4.1407005710225595`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00047307877082117624`", ",", "0.`", ",", 
       RowBox[{"-", "0.000036930571364130786`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00047307877082117624`", ",", "0.`", ",", 
       RowBox[{"-", "0.000036930571364130786`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00003693057136413079`"}], ",", "0.`", ",", 
       "4.247746736507408`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00003693057136413079`"}], ",", "0.`", ",", 
       "4.247746736507407`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0005226569308375229`", ",", "0.`", ",", 
       RowBox[{"-", "0.000039029132222073075`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0005226569308375229`", ",", "0.`", ",", 
       RowBox[{"-", "0.000039029132222073075`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00003902913222207308`"}], ",", "0.`", ",", 
       "4.337257408087106`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00003902913222207308`"}], ",", "0.`", ",", 
       "4.337257408087105`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0005708841014681298`", ",", "0.`", ",", 
       RowBox[{"-", "0.000040900515548744935`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0005708841014681298`", ",", "0.`", ",", 
       RowBox[{"-", "0.000040900515548744935`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000040900515548744935`"}], ",", "0.`", ",", 
       "4.410591915128371`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004090051554874494`"}], ",", "0.`", ",", 
       "4.4105919151283706`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0006169751949240655`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004252835048380582`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0006169751949240655`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004252835048380582`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004252835048380582`"}], ",", "0.`", ",", 
       "4.468775347569067`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004252835048380583`"}], ",", "0.`", ",", 
       "4.468775347569066`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0006603566167697252`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004391203896204294`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0006603566167697252`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004391203896204294`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004391203896204294`"}], ",", "0.`", ",", 
       "4.513624901026889`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000043912038962042945`"}], ",", "0.`", ",", 
       "4.513624901026888`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0007007074905524011`", ",", "0.`", ",", 
       RowBox[{"-", "0.000045066048737952895`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0007007074905524011`", ",", "0.`", ",", 
       RowBox[{"-", "0.000045066048737952895`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000045066048737952895`"}], ",", "0.`", ",", 
       "4.547551031387043`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.0000450660487379529`"}], ",", "0.`", ",", 
       "4.547551031387042`*^-6"}], "}"}]}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.547776402967437*^9, 3.547776420260812*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2.499937501829859`*^-7", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.499937501829859`*^-7", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "2.5000000000000004`*^-7", ",", "0.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.5000000000000004`*^-7"}],
       "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "7.499375053481009`*^-7", ",", "0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.499812515654727`*^-7"}], ",", "0.`", ",", 
       "4.999937504697464`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.999493928448289`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "7.498250626301446`*^-7"}], ",", "0.`", ",", 
       "7.499375220800519`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "4.497058486932297`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.4990881908542148`*^-6"}], ",", "0.`", ",", 
       "9.997127138262957`*^-7"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "8.737307675211088`*^-6", ",", "0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "2.4966178604732385`*^-6"}], ",", "0.`", ",", 
       "1.2490889258860426`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000015206473423970441`", ",", "0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "3.740010887742497`*^-6"}], ",", "0.`", ",", 
       "1.4976880275812018`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000024374651337438222`", ",", "0.`", ",", 
       RowBox[{"-", "5.224937690171234`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "5.224937690171235`*^-6"}], ",", "0.`", ",", 
       "1.7449525379387528`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00003668461158683954`", ",", "0.`", ",", 
       RowBox[{"-", "6.944359914634192`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "6.944359914634193`*^-6"}], ",", "0.`", ",", 
       "1.9901196753884795`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000052536396406431714`", ",", "0.`", ",", 
       RowBox[{"-", "8.887610101703451`*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "8.887610101703453`*^-6"}], ",", "0.`", ",", 
       "2.232190739139693`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00007226856023363724`", ",", "0.`", ",", 
       RowBox[{"-", "0.000011039565398742696`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000011039565398742697`"}], ",", "0.`", ",", 
       "2.469934172695013`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00009613669361095237`", ",", "0.`", ",", 
       RowBox[{"-", "0.000013379936084863849`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001337993608486385`"}], ",", "0.`", ",", 
       "2.7019020238434442`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000124288824627429`", ",", "0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000015882535490892803`"}], ",", "0.`", ",", 
       "2.926433676947774`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00015673881657796875`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00015673881657796878`", ",", "0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00001851466100481796`"}], ",", "0.`", ",", 
       "3.1416687349360813`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00019334776972828978`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0001933477697282898`", ",", "0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000021237609797578488`"}], ",", "0.`", ",", 
       "3.3456759067856155`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0002338214844776396`", ",", "0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000024008572394323557`"}], ",", "0.`", ",", 
       "3.536664879031195`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000277694471157012`", ",", "0.`", ",", 
       RowBox[{"-", "0.000026780401646175612`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002678040164617561`"}], ",", "0.`", ",", 
       "3.7129053792333726`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0003243468135680682`", ",", "0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0003243468135680682`", ",", "0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`", ",", 
       "3.872947739235865`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00002950438718419552`"}], ",", "0.`", ",", 
       "3.872947739235864`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0003730259400711304`", ",", "0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0003730259400711304`", ",", "0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`", ",", 
       "4.015708465377097`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000032132390805003596`"}], ",", "0.`", ",", 
       "4.0157084653770966`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00042290384915268125`", ",", "0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00042290384915268125`", ",", "0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`", ",", 
       "4.14070057102256`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00003462110225849214`"}], ",", "0.`", ",", 
       "4.1407005710225595`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.00047307877082117624`", ",", "0.`", ",", 
       RowBox[{"-", "0.000036930571364130786`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.00047307877082117624`", ",", "0.`", ",", 
       RowBox[{"-", "0.000036930571364130786`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00003693057136413079`"}], ",", "0.`", ",", 
       "4.247746736507408`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00003693057136413079`"}], ",", "0.`", ",", 
       "4.247746736507407`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0005226569308375229`", ",", "0.`", ",", 
       RowBox[{"-", "0.000039029132222073075`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0005226569308375229`", ",", "0.`", ",", 
       RowBox[{"-", "0.000039029132222073075`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00003902913222207308`"}], ",", "0.`", ",", 
       "4.337257408087106`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00003902913222207308`"}], ",", "0.`", ",", 
       "4.337257408087105`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0005708841014681298`", ",", "0.`", ",", 
       RowBox[{"-", "0.000040900515548744935`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0005708841014681298`", ",", "0.`", ",", 
       RowBox[{"-", "0.000040900515548744935`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000040900515548744935`"}], ",", "0.`", ",", 
       "4.410591915128371`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004090051554874494`"}], ",", "0.`", ",", 
       "4.4105919151283706`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0006169751949240655`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004252835048380582`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0006169751949240655`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004252835048380582`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004252835048380582`"}], ",", "0.`", ",", 
       "4.468775347569067`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004252835048380583`"}], ",", "0.`", ",", 
       "4.468775347569066`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0006603566167697252`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004391203896204294`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0006603566167697252`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004391203896204294`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004391203896204294`"}], ",", "0.`", ",", 
       "4.513624901026889`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000043912038962042945`"}], ",", "0.`", ",", 
       "4.513624901026888`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0007007074905524011`", ",", "0.`", ",", 
       RowBox[{"-", "0.000045066048737952895`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0007007074905524011`", ",", "0.`", ",", 
       RowBox[{"-", "0.000045066048737952895`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000045066048737952895`"}], ",", "0.`", ",", 
       "4.547551031387043`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.0000450660487379529`"}], ",", "0.`", ",", 
       "4.547551031387042`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.000737421852152471`", ",", "0.`", ",", 
       RowBox[{"-", "0.0000459834651221744`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000737421852152471`", ",", "0.`", ",", 
       RowBox[{"-", "0.0000459834651221744`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004598346512217441`"}], ",", "0.`", ",", 
       "4.5711864756724405`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000045983465122174415`"}], ",", "0.`", ",", 
       "4.57118647567244`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0007706383764784532`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004670209669569821`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000770638376478453`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004670209669569821`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000046702096695698216`"}], ",", "0.`", ",", 
       "4.58771459436306`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004670209669569822`"}], ",", "0.`", ",", 
       "4.587714594363058`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0008004068495096505`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047247839547812086`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0008004068495096505`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047247839547812086`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004724783954781209`"}], ",", "0.`", ",", 
       "4.599117895132443`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.0000472478395478121`"}], ",", "0.`", ",", 
       "4.599117895132441`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0008269181323608268`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004765002585331924`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0008269181323608268`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004765002585331924`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000047650025853319254`"}], ",", "0.`", ",", 
       "4.607275455205157`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000047650025853319254`"}], ",", "0.`", ",", 
       "4.607275455205155`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0008495789524365146`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004788898556943174`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0008495789524365146`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004788898556943173`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004788898556943175`"}], ",", "0.`", ",", 
       "4.6110426491873285`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000047888985569431743`"}], ",", "0.`", ",", 
       "4.611042649187327`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0008690974689191304`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048018079287927874`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0008690974689191303`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048018079287927854`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004801807928792789`"}], ",", "0.`", ",", 
       "4.61341268038069`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004801807928792787`"}], ",", "0.`", ",", 
       "4.613412680380688`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0008861236197283777`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048080567510011045`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0008861236197283775`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048080567510011024`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004808056751001106`"}], ",", "0.`", ",", 
       "4.616482087652323`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004808056751001104`"}], ",", "0.`", ",", 
       "4.616482087652321`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009001774215897896`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004805413037241855`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009001774215897895`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048054130372418533`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004805413037241856`"}], ",", "0.`", ",", 
       "4.6186293417297584`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004805413037241855`"}], ",", "0.`", ",", 
       "4.618629341729757`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009123450902931468`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048000326380184294`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009123450902931466`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004800032638018428`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.0000480003263801843`"}], ",", "0.`", ",", 
       "4.622803143500465`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004800032638018429`"}], ",", "0.`", ",", 
       "4.622803143500464`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009222448067464381`", ",", "0.`", ",", 
       RowBox[{"-", "0.0000478982625220588`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009222448067464378`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047898262522058794`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004789826252205881`"}], ",", "0.`", ",", 
       "4.627409601167496`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004789826252205879`"}], ",", "0.`", ",", 
       "4.627409601167494`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009312891125038534`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047820598641838134`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000931289112503853`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004782059864183812`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000047820598641838134`"}], ",", "0.`", ",", 
       "4.635809621619911`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004782059864183811`"}], ",", "0.`", ",", 
       "4.635809621619909`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009386060994781032`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004771771231970027`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009386060994781028`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004771771231970025`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004771771231970027`"}], ",", "0.`", ",", 
       "4.6448994784400465`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000047717712319700245`"}], ",", "0.`", ",", 
       "4.644899478440045`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009444872139759785`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047602351992392233`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009444872139759779`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004760235199239222`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000047602351992392233`"}], ",", "0.`", ",", 
       "4.654981394324807`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004760235199239221`"}], ",", "0.`", ",", 
       "4.654981394324806`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009495795463656652`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047503965369104556`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009495795463656646`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047503965369104556`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004750396536910456`"}], ",", "0.`", ",", 
       "4.667187909240284`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004750396536910454`"}], ",", "0.`", ",", 
       "4.667187909240283`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009551155700581236`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004747904651134963`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009551155700581232`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004747904651134963`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004747904651134964`"}], ",", "0.`", ",", 
       "4.683942046215742`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004747904651134962`"}], ",", "0.`", ",", 
       "4.683942046215741`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009598512901286874`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004745815254850041`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000959851290128687`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004745815254850041`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000047458152548500414`"}], ",", "0.`", ",", 
       "4.701319735520147`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000047458152548500394`"}], ",", "0.`", ",", 
       "4.701319735520147`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009637372616108605`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047435245588599915`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009637372616108601`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047435245588599915`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004743524558859992`"}], ",", "0.`", ",", 
       "4.718792819274396`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004743524558859991`"}], ",", "0.`", ",", 
       "4.718792819274397`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009682539543919631`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004747975510977305`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009682539543919627`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004747975510977305`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000047479755109773053`"}], ",", "0.`", ",", 
       "4.739582470790027`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004747975510977305`"}], ",", "0.`", ",", 
       "4.739582470790028`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009738608753709983`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047607400059759205`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.000973860875370998`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047607400059759205`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004760740005975921`"}], ",", "0.`", ",", 
       "4.764126905055466`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000047607400059759205`"}], ",", "0.`", ",", 
       "4.764126905055467`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009805815514688178`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047812159699693176`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009805815514688173`", ",", "0.`", ",", 
       RowBox[{"-", "0.000047812159699693176`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000047812159699693176`"}], ",", "0.`", ",", 
       "4.791816791752795`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000047812159699693176`"}], ",", "0.`", ",", 
       "4.7918167917527955`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009880193214208749`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048068306411456945`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009880193214208744`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048068306411456945`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000048068306411456945`"}], ",", "0.`", ",", 
       "4.821151087692826`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000048068306411456945`"}], ",", "0.`", ",", 
       "4.821151087692827`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0009984368774943`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048480969220250366`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0009984368774942998`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004848096922025037`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.000048480969220250366`"}], ",", "0.`", ",", 
       "4.857088697395772`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00004848096922025037`"}], ",", "0.`", ",", 
       "4.857088697395773`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0010089071635218856`", ",", "0.`", ",", 
       RowBox[{"-", "0.00004889855519625174`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.0010089071635218853`", ",", "0.`", ",", 
       RowBox[{"-", "0.000048898555196251743`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.00004889855519625174`"}], ",", "0.`", ",", 
       "4.891919971555612`*^-6", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.000048898555196251743`"}], ",", "0.`", ",", 
       "4.891919971555613`*^-6"}], "}"}]}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.547776402967437*^9, 3.547776420289098*^9}}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAAAAAAAAAAAAAAAAAAAAAAIXn77GF
m4Q/+mbAelJlgD+Ic27t2piLP1Xs65yrt5I/LilUWmkXhT/IPTV2g1qdP0OR
VEfHZnM/ZJTKG38lpT80YyzI+RNev88wy0yn76Y/aaGLgal+g79ghZNI4xCp
P9QfJIcAPZO/fT9VbyzFqj+AhMePdm6fvzS8WNxlRa4/v8y3+Pj0o78fZPGt
bcGxP0Imz8qMHKe/WxP/P6oytD/LpOoueTelv+95LHTxErc/42W1MV38o7/C
C6tebS25P8TwO+6eBJi/HpyPcUcTvD/1j9hgNImEv6uaGnTByL0/ELRwmiUv
cT/EP5AZ/d+/P7+uLDLDo4s/LvRH8enswT8cBezg7U+XP+NCCqRCV8M/EzVJ
yU+AoD9LUvyjaXfFP6b39GGZt6M/CcI7tYcQxj995BnQu6moP2OvoBwdicY/
bQplitjxrD/UJi5UfmbGP1Lex6DDfK0/ibm8+zdTxD8oJTXBGvGwP8ibRrn8
aME/8Hta+aB1sz+2mxI4SmG9P+75JCcc1rY/gLrx0Bjgtz926kAKxge5P8Qv
Bp1ox7E/o/kjFxryuz9uE3SeeyelP+z/ou+g5r0/cWIfMCsfkz845HLOxLG/
P7SmIjnaMnG/BC8eIH9PwT+iLcIWAJmgv67yDbqNY8I/vlP3Fddyr7/SEPpy
9hPDP8vCbhiS3rS/TvrslyWewz84kmQUB4a4vw3iHJ3bcsQ/72pzZPwQvL94
ZnrWIqXFPyflKGGKXL+/f1R3Yr/Vxj9nfzLnHr7Bv7jSVoV0Ycg/VAXDTsuJ
w7+WrQCuYcXJP/o7aGiTLcW/fs9tbmSkyz+7evjcJebFv9E7HZtPC80/XDU1
RSkyxr/aCkRgfaHPP0NK9ZISuca/dayHPJL60D80TTrNBNLGv4zNiQxpmdI/
xm5u4Vgfx78GG8lt72rUP/cIl4/M+8a/ZM2LMrX/1T+rqIhwfy3Gv+T3ppSr
Otg/Wl4B+qCRxL988SURZPfZP/BXWayi1MS/9DXxdLxr2z+xKLFY+mXFv/Gf
MtJgstw/rnActiOnxr8p7pfk
     "]]}, {
    {RGBColor[0, 0, 1], 
     LineBox[{{0, 0}, {0.010062260143957289`, 0.00800575673206393}, {
       0.013475141878922306`, 0.018278771832211344`}, {0.010298560208430087`, 
       0.02866559418663231}, {0.004736689026035914, 
       0.041301700727935736`}, {-0.0018358172680505548`, 
       0.04479716122077237}, {-0.009518932596123535, 
       0.04895696888866996}, {-0.01878739189945107, 
       0.052285564985708334`}, {-0.03069482090530018, 
       0.05912321390894029}, {-0.03897836719615943, 
       0.0693577336945883}, {-0.04513969398210495, 
       0.07889808714305728}, {-0.041438853242036076`, 
       0.0901327999713215}, {-0.03903475982469808, 
       0.09834941445573889}, {-0.023455127039583315`, 
       0.10966917536244167`}, {-0.010027322011474363`, 
       0.11634453854149267`}, {0.004195353401013527, 0.12451154588802554`}, {
       0.013495945900636184`, 0.14004253655721882`}, {0.022765843251368087`, 
       0.15110047349710162`}, {0.03222894031623915, 0.16770668513403772`}, {
       0.03851012535822855, 0.17237945889748144`}, {0.04816996493622925, 
       0.17605937860332252`}, {0.05653263749492941, 0.17500285253873094`}, {
       0.057592500092081736`, 0.15878963271957172`}, {0.06617896286947611, 
       0.1360164551417411}, {0.07601362312060167, 0.11476577633821602`}, {
       0.08920455890345355, 0.0932631979100993}, {0.0977748656304501, 
       0.06944898446653186}, {0.10916293206171317`, 0.04131685551877849}, {
       0.11680036402231025`, 0.018673586666269452`}, {
       0.12380628624204426`, -0.004198887285534237}, {
       0.1352385432077129, -0.032417300012720376`}, {
       0.1436631353825723, -0.061423036033068965`}, {
       0.1490467130098581, -0.08152115913868412}, {
       0.15326375883337778`, -0.09579509971497024}, {
       0.15975518390202162`, -0.10963418438351956`}, {
       0.16910205338063, -0.12250580665649534`}, {
       0.17839805896679548`, -0.1386145237820486}, {
       0.19047409544659444`, -0.152642644365225}, {
       0.20133610721800882`, -0.1654533633995639}, {
       0.21595435516394085`, -0.171086056609928}, {
       0.22690768312392476`, -0.17340579871453599`}, {
       0.2471157760665708, -0.17752296615306493`}, {
       0.2652936545479812, -0.17828426381002205`}, {
       0.29061342453425065`, -0.18064414031402104`}, {
       0.3190268108486837, -0.17955929766873854`}, {
       0.34373216568129394`, -0.17326348299804314`}, {
       0.37858094708269463`, -0.16069423873226435`}, {
       0.40572454142218084`, -0.16273911872366353`}, {
       0.42845069332255936`, -0.16717461901345623`}, {
       0.44838734175800626`, -0.1769756926740959}}]}, 
    {RGBColor[1, 0, 0], 
     LineBox[{{0, 0}, {0.0069647029612216835`, 0.004577113702009885}, {
       0.004881301761265597, 0.008409565966807512}, {0.00028871608772746636`, 
       0.01706566468665146}, {-0.008580451774540579, 
       0.03412816801062641}, {-0.017432449619882596`, 
       0.04523767421239647}, {-0.03009386264890541, 
       0.05413757713469983}, {-0.03487275528649312, 
       0.04745994278164328}, {-0.050805696664297066`, 
       0.05859255819302638}, {-0.051876624635208535`, 
       0.08050203620391902}, {-0.05997230979075659, 
       0.09594862391798223}, {-0.053333326860391814`, 
       0.1141557117766888}, {-0.0566687751812557, 
       0.12089224113990757`}, {-0.04693249370666224, 
       0.1337648504373904}, {-0.029339245188812653`, 
       0.1422411654684449}, {-0.013451715244585277`, 
       0.1553941552665255}, {-0.009147987599230804, 
       0.16988915235960747`}, {-0.001957992511930886, 0.1813402830226639}, {
       0.008729144774187913, 0.19210054647400376`}, {0.021569202757227495`, 
       0.18914361104423516`}, {0.0332551629525657, 0.18647734205237626`}, {
       0.04283669570876341, 0.18318236236755467`}, {0.0514386568610174, 
       0.1687732019945451}, {0.06165977748009988, 0.14476040523882763`}, {
       0.0705198866234114, 0.12340162190919218`}, {0.09494508196283485, 
       0.09647759846311761}, {0.10196879229133417`, 0.07163084747910203}, {
       0.10789762912406174`, 0.039469584998768764`}, {0.11724478277944113`, 
       0.019198010833882784`}, {
       0.12747881939489572`, -0.0058217454551844315`}, {
       0.13328102948365356`, -0.027590854500048903`}, {
       0.14409224745284624`, -0.0547522700146434}, {
       0.14810090343646448`, -0.07393204350246599}, {
       0.150982734164414, -0.0857461579240014}, {
       0.16442754608798638`, -0.0922993691879194}, {
       0.18267773385466476`, -0.10688090118035588`}, {
       0.19092558276481653`, -0.1252369316670783}, {
       0.2001303584438379, -0.142022305017641}, {
       0.20842426324478378`, -0.1540732152369719}, {
       0.21273820970953944`, -0.16368220825936824`}, {
       0.23471913198046748`, -0.17369852510267952`}, {
       0.2606374127889061, -0.17245662572770423`}, {
       0.2784912995621461, -0.17641145632571284`}, {
       0.2973392371616179, -0.17923221101233489`}, {
       0.31803455170796585`, -0.1833127095053856}, {
       0.3439070243833364, -0.17764175076758743`}, {
       0.3818794859565873, -0.17120410882133028`}, {
       0.408535498138651, -0.16280080206777825`}, {
       0.4283600367766124, -0.171426677241278}, {
       0.4470115562047204, -0.17533215533355617`}}]}, 
    {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAAzXwsFefxYD+iWV6f0jxyP75OrMoT
rTo/xwfJt1psVT/neIZCsDaGPz83p+tyGYs/QWelqkcEgz8BSQWK6b6kPytQ
duHDP4W/+q7K7ZWupj9tkC6C53wyv7hRgzq1d60/h2q4hy05lb/OxdFRJaap
P1gmWtac3KO/Or/J5eGTpz/xxiceXaSjv5Q2ka/SXK8/ASib5GlCpL/lbG7y
b0auP5MpggC0Hqm/l8nSzCumtj+2zhyFl4Orv6xxzX9c9Lg/YHRkfPEepb+y
yvsNPku9PzRXaj7Ehk4/aXLhMRkAvj/++DnuR5GKPwNyKBy+D7w/CcyO36r+
hD/n38jOACLBP+q4KNCwo4Y/fX6NZHvswT/0SkwBqtuDPw5FFeBsxMU/n3JL
52ItoT9ibtJwznrEP1LT0gah76I/gD4bWQVdxz/JwhH1FjWjP41HKQ5JecQ/
KYC2R0wnsD9tv7zie37CP83SsNFvWrE/frkKfinuwD85a9aGHbuzP0YgOeab
7r0/K88X9PiEuT/nUWizIZm5Py8ECi7FnbY/hv13GLMFsz8QwC0QXhC7P00X
dn7ugqY/B8pHg+zevz8iFZjkAmKVP5E2Sre6psI/BawAD7CLfD8mN4gfZEXA
P+0/MwX5f62/e7bMC/EVwT/pDZOotbeuvyVyihmT/sM/QP1K4ZiNtL9RS6B1
iLjCP3by6HKO47a/ywN+RrZnxT/Z2cp7JbHAv1G9whQO58Q/AFqmM3Z8vb+6
ikB6HCnJPyz2drN00sO/pocg8GP2yD+62v9JhBvFv7WaQ5dx78g/tuurTek4
xb/QAQg2C3PKPxne+J2n/8S/+rW6y6I7zz+kqS4IGlzIv+KIxphVw88/Ml3l
jnI8xb/M5ZIORrrPP5knVMj9uMa/zstzn1qt0T9E3J1PHPnGv0yOZ6Vl2NM/
xID8pGzcxr8Rh7Kxp9vVPzT5uoei8MS/z62LmMJZ1z8O3f9wv7XFv5amW7X+
yNo/Wu+4dk86xL9EJTOxwp/bP3LkK4YL1cS/VbP03yNl3D8TGmopCazHvwB/
l2g=
      "]]}, 
    {RGBColor[0, 
      NCache[
       Rational[2, 3], 0.6666666666666666], 0], LineBox[CompressedData["
1:eJw9zmkgFHgfwPFJIUQnQmsl1yxKlFLx0yLFuIrk2rU2RSGEEomMIYVahKwj
hlzDMOM+/sxlEKJUSKlIzo2VVOjZF4//i++Lz7vvTrdLJ93XEggEt/8S+H8E
M78/LhiEoxyH37J6j/jDuRjhKZfqGFh1Z6iG5NisK/CvypZ+rglCqxa6fzHI
Ii0OhDK7uVfzIlGrcFu1o5cdzLldEzCzjoJVN1mWtG+lHYLIN+ripzsj0KoD
d8rXe6lFgzXDw51QYw5w4NGkv8xtIOk4waczydhjVym/0nUpoKUy1CgafAE7
+K/JRJv2FLhbEpdzwNsUrTkhGDveRIX8Z7Xny1EirPro+bwi03WRsOSbG2Fi
mIVN7j94ij5UCHPf9zCDhpLQt9L26eTSfFCQSLYxTzyIrW4d9JYNUUjMZNOd
joSH2OPbo6xcO4vBKfXiPb5EFKqxiTxUeYUGdmXHZb59iIRVe9/dfXMsVBux
+BqjS2cKsO2np1p1zcvhnZuf3e4rWaiL22OjnF8IZ0ZWLjssRGFHX6iJ1tRL
RtknPk8oRVOxl46W1ihzS2F9rUi7zVIBOoTaRt8mPgJrVTtud3AG9hkVx+d/
v8pFsRqycxoBOdgTNsH99xklwHb8ErGBU4CSdO+V9TqXgcE5eoCTSAb2LE9V
3oWai1g5Lea79IuwddzpIkcNKuAOkbqZ6FaIRr185i4dK4VpktIlO5NM7DVq
6SOev1KR40V3Ll2lEPtgdX2CNKMc4rdsSyRAKUpp632snl8FqYafvM+v5GIn
Em8SmPKFSKbvVqSgFBNbsklO6qRuLTBFAwNlT9JRiV/nDef5GlgXY/XzN7d8
7KquHVEpkcXoVNeHx+Jnq7AFJZnaxeR6mMhmRbQaFKGK9u/iBuaNUJKwYUZ3
JQvbNeBs6Kx8HvJmksRO1ddhfxku2kQcRNAXP5wa+NdN5On/dq8MoQnq+2kK
ln9SYNX77C8YcCiWMHz7+EKDbz12sEZjVZ1pM5R8JD9/bu8Ba/3VdjRtbICP
Tp5bLSgp2CuLejOm92KB6CjZdyq8Fnvo1uE/1bKaIHwLX9LNVwvG3vC7CIot
gIoP2I83JGGLPI5/U7RCht9LK3P/ZiLszI9V5gxPFoRPK2hOGdnA9bC4syFT
LbCl6LS4f0Iy9kSN2hN6LgXa9o3u4VObsffy96ft3seGZvPj4x0zOkjCRHLY
i8OFXV6zWu7qSbDqeTPSmqLBSNB7JTZQF8rBfk+T/yC/oRUWRR2tB+VSwc2n
17frGgdYbzxVXpLysbP8zcfcNB+CzFPRnbPabOxikQfNxSwuHGQaawplp0O4
gZyDoEsrxJDWfjHYWIB98mmv0MN/ckBHYePQT5I87E5n1b4pKh+Mt5J5I7/8
DXGmRIkTwRz4FPKWUm9bgN3G2vxZan8uGDlUjv++l439Yn+GtnYLFwx9AxSN
NIvBGzW8CwljgTZfe2WhugKbGF5lSlKlg0d6WLSKbgu2//tv+j08NgjYBs0o
JtIgrFY0jDjTDGkhKhqWkwzszl56zyXHctBqz3oYYI6wR+JMilN1WSDlGP2k
k1gOxxT0PqTPNIJzqLK+N6kKW+/ic8pP9QzYtXFiD8mlHpu53bjrMzSD2U7b
Rvu5Khiz8WDsTKuFDdcHf3kg3YCt3i09v0iuBSEqNTRcqBqb/0N9gqXeAJxf
pdRfijGBsnxlO0OQAQ+4y1oVe2qx96wT3c3NqALZI2RJ3mU69lzTRbnslEpQ
4ot9PXW9Biykg8JmbubDUrWVqkduI/amZs1Nv22qhyBVbesB54fYSsJ1JQKF
xWD6XQhdNmsERcnUEQG3ZDhL4uRW6LVgC7ebRk69RmDCJD4CBQq2onX651FG
FiwvftoV69QCgiWEjfTboaAckGs2OcvGvqdrVl2XzwJRccsaDtMTrZoqHZvp
G3oP0rozzkovNMI06Ah+vUFDNygtdxoSWrBVDsT8fNakGQoNNrjQbMuxYwQs
rVNOFyB2DkGeeh/BuHhiQWV1KUqSS1t/15WFHVL1WGxWsgVUbd51bp8txyYH
/1GpF1eIMkjp2wYrWGC4bPY2NY6JaCnB8uZmXGxl/1iZxBU2WB0nTq5Xrsbe
W+H1Qm2hHF3lW+yw8W6BoLmP/vHvq9AvXXNdaC0H28Y8OzCmhgVqi3HKy8G1
2Jwpo+afLZhorifKx12OA/397SHK5c2Iuj9IXpjJw+5YG3as6jwXKsTYp4KW
W7AJ1nmmhW1NyOHy6PT8AzYQHPN1gkIb0Qnh7MOqOjxsm0bWNokxDiwG0Q1t
RZuxN/MmR41G6pCcTLnxj4FW0FgIYgT0spHDUneZ3pV27LpYw2s7iG3QcV5o
/J4CFzuOPHbdnsxCZg/Kv7sWtELdwI8TZDkuEghMGDln3I6dH63w6c8FPkjx
fQyiPXnYv03ftYvoZCMKb1bX/2ErVE0WW4wf5KIRn+Qvvvrt2JUPjFL8/uHD
B7RM+0jhYVOkHafHJ9jo8B6/Ln2lNpB5vZjx6AcHuT/LzHjZ0oH9ZM16XbHL
7VBKTxAMtORhk8XcdAfobNRU9fbff8c7gVq4e72sMx+lD7T1FBx7gv2tsq4j
53A3DBcID/NpbdgeRXZaF0Vbke9Vq3aSXxdou4zG+x/hoqLHmTplsU+w38Xw
Uu3Y3UD1dnYJiedhN5N8mj3/+5c3O2Bl5NEFaaq2/OUaHmo0/HJOifIE+/Ho
XxLH6rrBlF0WTRDjY0/eXlz//RwXZZJDtDau7QHjVxlWO77y0MoWL4l8+17s
ro7LWY60HqBeiNdkWPCxRyxoflFULlpzXH67o8ZT4IQvUb1e8VDKM7q2H/kZ
Nin+fJ77y6fgJJ6AIvfxsTXnPWPtyFw0JWeVx9Xsg31f66JzPnGQ7pxk061b
z7E3R1eUPxrsg7DuiOxzJB72hOK8z+skNnIvayC6Fj0HiaEfvqiSi/RKHIWV
RV5id9Nup7IcXsD7/gxL8rZWbL3hPxK/neagwI4j1TTJAXD8pybI6hAHVUdc
Y1iFDmLfz3eqXOEPQEbegv9sNhdbWi/kGu0pC8XZ3rnhOjkA/iPqFLE+Dvr+
uf+dku0rbGNlnXJW1iAMRwWPd+vzsNcZvVY09WKjpJ2vcxrKBmGr7AWiSEkr
kjIR++m27BC2HWP+zS73V3BfPyX3hVQb9t2FI2WHjvLQ/wBNSUPw
      "]]}, 
    {RGBColor[0.5, 0, 0.5], 
     LineBox[{{0, 0}, {0.006964825366442487, 0.004577116816430633}, {
       0.004881759732912021, 0.008410101726250747}, {0.0002870628636398075, 
       0.017066967021374127`}, {-0.008590142346244748, 
       0.03412659528557482}, {-0.017448310767673968`, 
       0.045236920749430205`}, {-0.030155126006792272`, 
       0.054131620701511673`}, {-0.03496857041322674, 
       0.047447548816285774`}, {-0.05094567716756519, 
       0.0586262753410951}, {-0.05208786831093206, 
       0.08063725375528179}, {-0.0603318430779303, 
       0.09635143051653597}, {-0.05373421758665879, 
       0.11480721408157801`}, {-0.057106438571314325`, 
       0.12183754970966142`}, {-0.04746045866247822, 
       0.13501751506845316`}, {-0.030464028884648737`, 
       0.1439877576484161}, {-0.015209035457796907`, 
       0.15823659633123166`}, {-0.011459344153884408`, 
       0.1737608490614734}, {-0.004705494908697769, 0.18659662781619052`}, {
       0.005944169946912167, 0.1982109540102464}, {0.018255830015584097`, 
       0.19653952462836957`}, {0.02975686937270086, 0.19406917254153486`}, {
       0.039631479771051394`, 0.19205343713774004`}, {0.047530405416817856`, 
       0.179108602788052}, {0.05735065552473243, 0.15591321291718088`}, {
       0.06575030526249118, 0.13500965287417693`}, {0.08982212733934405, 
       0.10782357175590748`}, {0.0979213683187781, 0.08276565479514827}, {
       0.10402996635840271`, 0.05023333501371977}, {0.11275685081896727`, 
       0.029817724471974352`}, {0.12138483692508417`, 
       0.0036713679463077353`}, {
       0.12774925550133265`, -0.015358831664286516`}, {
       0.13955081130736224`, -0.04203086513972179}, {
       0.14279225588212902`, -0.06060926130346549}, {
       0.14613072823087198`, -0.07206940623886357}, {
       0.15930298404144924`, -0.07491324554738486}, {
       0.17946454302794224`, -0.08867608483171889}, {
       0.18715732096910392`, -0.10411748850437202`}, {
       0.19686966596971894`, -0.11863072700042526`}, {
       0.20652527990808336`, -0.12950902305122125`}, {
       0.21144984326504332`, -0.1390810173770249}, {
       0.23251285006936412`, -0.14745563751662313`}, {
       0.2596692251562947, -0.1468630243060316}, {
       0.28057257312893374`, -0.1507074029576644}, {
       0.30150106473904653`, -0.15350403387894582`}, {
       0.3229666976087704, -0.1580408970214053}, {
       0.3490656830517847, -0.1537095704429848}, {
       0.38864469478623936`, -0.1474224408243954}, {
       0.4143929966154813, -0.13945300045813122`}, {
       0.4339210175255986, -0.14886648478091766`}, {
       0.4528753255421645, -0.15190077359597812`}}]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{844., Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.547359205913609*^9, 3.547359220719069*^9}, {
   3.547359257086182*^9, 3.547359266837264*^9}, {3.547359420039757*^9, 
   3.547359515158441*^9}, 3.5474962325926933`*^9, 3.547496279738195*^9, {
   3.547496393112842*^9, 3.547496414030116*^9}, 3.547496459196587*^9, {
   3.547496504758009*^9, 3.547496588051837*^9}, 3.547496737786065*^9, 
   3.5477605843152657`*^9, 3.547760615665742*^9, 3.5477761996440277`*^9, 
   3.547776292944799*^9, 3.547776327491601*^9, {3.547776375867305*^9, 
   3.5477764203239393`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxV0m1IU1EYB/CbSiX04mptYhYqQ1SsdL7Oue2/O++cFr0YpYZUS9IyRBmF
sxe56fq0kMpsNosmWlAkTjJRPygV65OZSxxR0CIdGsWy0jQoeuE+94MHDocf
f3h4zjlP7LGaouMhDMMo/+3/p7DmdMzyheVcjfCSPUP9Kxu0giNgLvWNBV/e
GxYshd14d9C5bZQciauLFj7s/CQ5GtP3A0M26VdyDLhrVRd6Xi+R4xDfMsrU
jTEjghUoVb6APWYVOR6hzX8kFl5CTkBkoen9QMhGchLY9vnTG7RScjIqdkVN
zIbLydvR5ZK1dUQryCk46o2bDd5JJqdibu1MlHk8lazExOGzj5iqdHIaHM6B
wgSX6HRc+TxlDpzJImdAZRsvkp3IJmfCcmAq8eNSJjkLPf7aZ9+5HHI23D/3
htk35ZJVYFW3Wci15BzMG1u+Xb6uI6vROOjsPLRDTc7FL/mwv9Uq1tMg7aB2
v/+dWE+L4s7ubk+dnqxDWW+EN1gNMpDyid/n5zSCeUDf5pArGDHXo6m8smB3
JfXD6+GeObXwoVjsh0V9/VvmpI/uy7MoGalOvdkn9mNA7+8W98NQFeUGJDb2
GXQ28f3yUFPr4Z40KSnPw42pH292XsygnMMtW9lzroH+g+eAcitb4dpKuRHW
B81dzLovwvzwRsR1PDVcWlik+czHq/4Kf6xnhTDXfD40vq6kySNbaM5NkAUG
Wpe8EspNMJzzPF6/eQ3lBWj1+tSOaYnuLyic3t8=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgQMql8NBRyxnz4Qr7XYQvoCDw3ZxLkbT
+VC+iMOJWds1BPsW7IPwJRzyzfoTY9MmQvkyDpZGHj83X9wJ5Ss4BAjmxDrX
nIDylRymVPEJhcbdgJqn4sDbZf3tlsQPKF/Nwd6lRSV+rwDUnRoOO65xzta9
IAnlaznkyG8pfHhZEcrXcVigFlEmO00NytdzmKB2fsrETbpQvoFDyBenLYKW
ZlC+oUPNNC6W+F02UL6RQ53S94xjtU5QvrHDhvd37F49c4HyTRyWTpnStT3S
A8o3dci3WJfJfAvGN3OwVuG5E/nbG8o3d1j74a5zerY/lG/hcFqweB/bogAo
39IhIWCVwT+FQCjfymFD6FNB31sweWuHA9/L4oQWw/g2Djl8uukHXWB8W4e8
mvrf4oowvp3DB66nL2Yr+kH59g5mV/W9ImfAzHdwyKoXP3aQMwjCb3Bw0PvT
mzJvEpTP4OhQdkjzwP2HMHlHh3dmK+bkiIRB5Z0cgi2P2h45BuU3ODmcz2vy
qreKhMo7OwTyJnv8k4uGyjs7GEnL5zwQi4HKuzgk/vx6cbEclN/g4qAX4sv4
viQWKu/qsOjr1Ace72Dyrg5lrlZWYqwweTeHh9aV6TxcUH6Dm8PsRT+PVa6B
me/ucJfp6pvGWTD73R3ELxmHn66G8hk8HD6dVpibpwyT93CoOKa8J6g5Cirv
6WA0yS5TyiTaHgB2X8RT
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{844., Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.547359205913609*^9, 3.547359220719069*^9}, {
   3.547359257086182*^9, 3.547359266837264*^9}, {3.547359420039757*^9, 
   3.547359515158441*^9}, 3.5474962325926933`*^9, 3.547496279738195*^9, {
   3.547496393112842*^9, 3.547496414030116*^9}, 3.547496459196587*^9, {
   3.547496504758009*^9, 3.547496588051837*^9}, 3.547496737786065*^9, 
   3.5477605843152657`*^9, 3.547760615665742*^9, 3.5477761996440277`*^9, 
   3.547776292944799*^9, 3.547776327491601*^9, {3.547776375867305*^9, 
   3.5477764203421583`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "Zerr", "]"}]], "Input",
 CellChangeTimes->{{3.5473591108981247`*^9, 3.547359122214581*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw90FtIE1AAxvF5I9OHiSWtlJYzaobs5rLctH2bcxqVDEeFLEFkFy1YUg+V
y7aMihhEFwmNFCExuz30ICFpJoPVkJAxE0m6qWViNLtY1CQr2teBw+F3/ufA
4WTXHqy0xwsEAuWf+Xf9N+Z1zuLZlFp3RBfbgPvhWM2Mh06GPHCz40g9nYb+
cJGvSUuvxNjqZ7keCS3CeE4ww7qTzoJ4MKvBIqLXwXrW8aNaQ0vQ7BrWXZn/
GPN6vKrKeJw5RG9Ann6N7v5TWgrj8snDoQC9CZ6RdGlBiM7DjgPv9YmdtAx+
1+vcWT+tQE/XkrXiLq2EPb164cw+WoVw47eFQC+dj+jaZMu5J7QaCSbDyBc7
vRm7Lh6SrbhKF6Bz2t0W/P/eLWio6ZY3D9Bb4VW7lg1fpwvRM5fqcVyjNfBL
HPkzx2ktziccq5u7TBehsX2wXXWaLsZ2841o6yK9DcknbvXZkvi/OjzvyBFp
0mhgMsknfBCNnfcC737a9KemeF+Pz72ye1p17LxXj3Cr/6hByPsGyC903Vae
ZDdALP4eGtCzl6D+g0Hxq4K9BNEmU0uhmN2IF4qXU3WX2I1YZa+KM+9lL8Wo
0z5h3sNeikimb3zJym7CaNyEIl7FbkL2m6HKjTb2MgTvpBqlFvYy7E/cLf70
lr0cLc6Ur9E29nI8WhT2T/dFdL8B2pfo0A==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.547359116202879*^9, 3.54735918697622*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "Zerr", "]"}]], "Input",
 CellChangeTimes->{{3.5473586190652647`*^9, 3.547358627398672*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQDQEf7NdFrE/LANJQAYe6NT6d3XA+hwNTyNxD2+B8
AQfvo+/mvILzRRw65Rc4qzPC+BIOPuo6wTlwvozDg21VNTvgfAUHUYGvalxM
ML6Sg9g9lq44OF/FgU0wftUmOF/NQeHbVmZmZhhfw0HHPnyZN5yv5dA1exdT
J5yv43BcQIZvB5yv5+C0RFboBpxv4CBkNsH/DZxv6HDNqNuciQXGN3Jo2XZY
wAbON3YomlZSeQ/ON3FY6Kh+MpYNxjd16Iz79T+UE8Y3c/gc7HM3kg/GN3cw
9V3nOVUUxrdwcPDTLkiWg/EtHYy753iqqcP4Vg673sZtXKIL41s7rJhdYPBc
H8a3cXh57nOwClze1mF77vUXamowvp3DlJTi5ucyML69w9nNN3oXCsP4Dg69
4TYpX7mh/AYHh6O/Z8l1w/3j6ODaWjLREhY+DY4O91u2ny2Ax5+TQ02Mv+R0
WPw3ODl0u211t4KnB2cHQfmf/mJweWeHr/nM3JxweRcHMccTXCxweRcHK//l
GkxweVeHeyvXeTDC5V0dHvdYHGCAy7s5TLe1joXzG9wczL5LWSDk3R1YzwnJ
I+TdHeo+WAkg5D0cvtovYkLIezg4zkjlBvEBdazD/w==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.547358627892001*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[AliasDelimiter]", 
  RowBox[{"\[AliasDelimiter]", "\[AliasDelimiter]"}]}]], "Input",
 CellChangeTimes->{{3.547239987862623*^9, 3.5472399882975073`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["updatep"], "Input",
 CellChangeTimes->{{3.5472400026487007`*^9, 3.547240009834075*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0008131854664024905`", ",", "0.`", ",", 
     RowBox[{"-", "0.00014782178286043663`"}], ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.0008206228642307268`", ",", "0.`", ",", 
     RowBox[{"-", "0.0001475273709813586`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.0001478217828604366`"}], ",", "0.`", ",", 
     "0.00006618790274157927`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", 
     RowBox[{"-", "0.0001475273709813586`"}], ",", "0.`", ",", 
     "0.00006692303663419716`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547240010263825*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "updatep", "]"}]], "Input",
 CellChangeTimes->{{3.547240017309122*^9, 3.547240022471848*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.0008131854664024905`", "0.`", 
      RowBox[{"-", "0.00014782178286043663`"}], "0.`"},
     {"0.`", "0.0008206228642307268`", "0.`", 
      RowBox[{"-", "0.0001475273709813586`"}]},
     {
      RowBox[{"-", "0.0001478217828604366`"}], "0.`", 
      "0.00006618790274157927`", "0.`"},
     {"0.`", 
      RowBox[{"-", "0.0001475273709813586`"}], "0.`", 
      "0.00006692303663419716`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5472400228750563`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547237552533502*^9, 3.547237557217614*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10027402551216578`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1.3535697417452879`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.1007715110467765`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10027402551216576`"}],
  SequenceForm[
  0.10027402551216578`, " ", 1.3535697417452879`, "     ", 0.1007715110467765,
    " ", 0.10027402551216576`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516867672*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10122876299394364`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.6437612615361166`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.10716982578860224`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10122876299394362`"}],
  SequenceForm[
  0.10122876299394364`, " ", 0.6437612615361166, "     ", 
   0.10716982578860224`, " ", 0.10122876299394362`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516869973*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10005623566775175`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "2.9830613500169227`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.10766397711308406`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10005623566775176`"}],
  SequenceForm[
  0.10005623566775175`, " ", 2.9830613500169227`, "     ", 
   0.10766397711308406`, " ", 0.10005623566775176`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516872394*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10011108388923401`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "2.123347391260702`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.10435854941689923`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.100111083889234`"}],
  SequenceForm[
  0.10011108388923401`, " ", 2.123347391260702, "     ", 0.10435854941689923`,
    " ", 0.100111083889234],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.54723751687504*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10038654607342196`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1.1406189935793993`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.10792448225790724`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10038654607342197`"}],
  SequenceForm[
  0.10038654607342196`, " ", 1.1406189935793993`, "     ", 
   0.10792448225790724`, " ", 0.10038654607342197`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.5472375168780603`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10061391663379203`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.9066148462721871`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.10494149900443601`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10061391663379204`"}],
  SequenceForm[
  0.10061391663379203`, " ", 0.9066148462721871, "     ", 
   0.10494149900443601`, " ", 0.10061391663379204`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516881193*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10022609965125936`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1.4896030055422438`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.11641712907276758`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10022609965125938`"}],
  SequenceForm[
  0.10022609965125936`, " ", 1.4896030055422438`, "     ", 
   0.11641712907276758`, " ", 0.10022609965125938`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516884158*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10003070340621754`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "4.036376903141299`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.12944100159744354`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10003070340621757`"}],
  SequenceForm[
  0.10003070340621754`, " ", 4.036376903141299, "     ", 0.12944100159744354`,
    " ", 0.10003070340621757`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.5472375168868227`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10069745016548184`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.8511203125033886`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.14595216896947572`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10069745016548183`"}],
  SequenceForm[
  0.10069745016548184`, " ", 0.8511203125033886, "     ", 
   0.14595216896947572`, " ", 0.10069745016548183`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.5472375168891897`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10091104709024053`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.7458755848108216`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.2056862184495894`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10091104709024054`"}],
  SequenceForm[
  0.10091104709024053`, " ", 0.7458755848108216, "     ", 0.2056862184495894, 
   " ", 0.10091104709024054`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516891786*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10003729622219076`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "3.662469659273977`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.16618730896739659`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10003729622219079`"}],
  SequenceForm[
  0.10003729622219076`, " ", 3.662469659273977, "     ", 0.16618730896739659`,
    " ", 0.10003729622219079`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516894189*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10157907420795714`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.5693512221314416`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.16678199217209339`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10157907420795716`"}],
  SequenceForm[
  0.10157907420795714`, " ", 0.5693512221314416, "     ", 
   0.16678199217209339`, " ", 0.10157907420795716`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516896497*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10556771288783998`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.31204357497814805`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.15056127134553257`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10556771288784`"}],
  SequenceForm[
  0.10556771288783998`, " ", 0.31204357497814805`, "     ", 
   0.15056127134553257`, " ", 0.10556771288784],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516898836*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.10294606784472382`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.42101548575373354`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.1722092297549695`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10294606784472382`"}],
  SequenceForm[
  0.10294606784472382`, " ", 0.42101548575373354`, "     ", 
   0.1722092297549695, " ", 0.10294606784472382`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.5472375169012413`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.1101020864615547`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.23898730166411591`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.20083182777530054`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.11010208646155471`"}],
  SequenceForm[
  0.1101020864615547, " ", 0.23898730166411591`, "     ", 
   0.20083182777530054`, " ", 0.11010208646155471`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516903652*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.14472901844922262`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.1383305802256573`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.25721087015642524`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.14472901844922265`"}],
  SequenceForm[
  0.14472901844922262`, " ", 0.1383305802256573, "     ", 
   0.25721087015642524`, " ", 0.14472901844922265`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516905981*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.20998883668152182`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.11372314881652555`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.8620752406777376`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.20998883668152188`"}],
  SequenceForm[
  0.20998883668152182`, " ", 0.11372314881652555`, "     ", 
   0.8620752406777376, " ", 0.20998883668152188`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.54723751690831*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.3066481998235002`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10578282946490006`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "0.37390994078531536`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.30664819982350006`"}],
  SequenceForm[
  0.3066481998235002, " ", 0.10578282946490006`, "     ", 
   0.37390994078531536`, " ", 0.30664819982350006`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516910851*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.49085212929287536`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.10214215953696804`", 
   "\[InvisibleSpace]", "\<\"     \"\>", "\[InvisibleSpace]", 
   "1.1371789993204544`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.4908521292928757`"}],
  SequenceForm[
  0.49085212929287536`, " ", 0.10214215953696804`, "     ", 
   1.1371789993204544`, " ", 0.4908521292928757],
  Editable->False]], "Print",
 CellChangeTimes->{{3.547236977933935*^9, 3.547237017116722*^9}, {
   3.547237234126039*^9, 3.547237294442865*^9}, {3.547237349860428*^9, 
   3.547237353998323*^9}, 3.547237452896091*^9, {3.547237503923953*^9, 
   3.547237516913453*^9}}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAGfHUBrb
V2g/DPY6f4pIo783iEq86Malv4QmS/Ix77e/HLXbV0ehpb/C7zg++9DBv8Da
2toOE0g/kLKA1+psyL/AonzyuUNZP/8EYSJP7M+/zyebumg3mT9yJdn6iPjT
vxdXFapm4bU/nN6tPUl917/yrmYxz9C8P9dQF6Qigd2/KzxPM3vDuz8O1sN5
dAXhvzJgIi0mIrM/3XzXiIUy5L/QR9d4qb+nP7FFBCOq4uW/sBCfm6chnb9Q
KIfE9U7mv80vMk2YUMO/LBfJ4mWj5b/ECGDP75DUv16zmLPBuOS/HvCkoWEg
4b+309Gf4KLkvxis4eKpRem/bCElg+G25b9ZVyRQdNvvv8c14rsuzeW/SCZX
/b9t878HoQOwbFLlv7AAtch/jfe/aWGSJmGy5b9Sa6sB
     "]]}, {
    {RGBColor[0, 0, 1], 
     LineBox[{{0, 0}, {
       0.0029715804435221263`, -0.03766281893829779}, {-0.04253318117595522, \
-0.0934935776268962}, {-0.04224608371246516, -0.13919010675624405`}, {
       0.0007346937688542318, -0.19082389376253106`}, {
       0.0015420261278881603`, -0.24939908198033575`}, {
       0.024625431432276742`, -0.312044377297375}, {
       0.0854705968134478, -0.36702185653073527`}, {
       0.11256117778856004`, -0.461006794209664}, {
       0.10845155718492154`, -0.5319158914778102}, {
       0.07473982431327, -0.631167189854661}, {
       0.046384140015689135`, -0.6839190181655593}, {-0.028448695062039675`, \
-0.697138675540609}, {-0.15089706200921996`, -0.6761960439114083}, \
{-0.32134623767354875`, -0.6475533015960584}, {-0.5352028042902963, \
-0.6448824998357087}, {-0.7897538596420217, -0.6785743295122706}, \
{-0.9955388608238805, -0.6812966985323151}, {-1.2142944236860718`, \
-0.6663115918900367}, {-1.472045692455179, -0.6780248406749197}}]}, 
    {RGBColor[1, 0, 0], 
     LineBox[{{0, 
       0}, {-0.0009492730812349126, -0.04180456154406575}, \
{-0.05586690050859688, -0.10984285247967908`}, {-0.05195021426401825, \
-0.16296387157342493`}, {-0.0005962395822009612, -0.20315531806766612`}, \
{-0.014052988188416334`, -0.24882028668253114`}, {
       0.035577119433748486`, -0.2719481767429646}, {
       0.10341107776744032`, -0.35487075451784555`}, {
       0.09647914741136271, -0.4646955447448101}, {
       0.11434924642553511`, -0.5554065253856711}, {
       0.10231632280603307`, -0.7383433248206808}, {
       0.04875947780948957, -0.7829711987657665}, {-0.08416802701984473, \
-0.7907336803473852}, {-0.2583388280882273, -0.7243520720105308}, \
{-0.36240809918002326`, -0.714560627457504}, {-0.5230015409105416, \
-0.7421317532378138}, {-0.7808542306260382, -0.7892748884933664}, \
{-1.01130962827171, -0.8595503428603396}, {-1.2256810901118615`, \
-0.8349389191454547}, {-1.4237418999807927`, -0.8748369482866626}}]}, 
    {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAkKt1jCHusr/WVU+nMAayv2KoXBLI
9sO/emWuF27Zzr+P4cXksiqhv5FJVNMyh9G/ozwhzy0fqD9TWN6fuUTKvyEI
QcoJeba/KBbeS5xr0b/WnZwEY0u8P2w0lNSCcsq/SYS6bt8ysT9qdoUbr1TZ
v5ScRqczX5k/ikyr5fzV4L9YQyaoyyW+Pwo8fznebOS/FFTlsn42wT+epPjD
Vb/svyhyoNt29pu/DYDgAxUc6L9cLuUAVZnGvwIMfMF50Oe/sqRN0tjg1L+V
hsX53PLjv3Zz8AIxss6/h0LAH11I6L8EsPXERqHbv/I39WH2V+q/a9WvdSDb
6b/RVdhiC77pvwbV6aryMPG/yzAnWhes87+5dIksXdHzv7UCa3gZVd2/jfSq
sKHZ9b/HxDURTTrvv9wBqrQ=
      "]]}, 
    {RGBColor[0.5, 0, 0.5], 
     LineBox[{{0, 
       0}, {-0.00022328911150747708`, -0.041520098769564376`}, \
{-0.05221994546797578, -0.10573091783881738`}, {-0.049745718261680665`, \
-0.15016703161903364`}, {-0.006328775283125566, -0.1900146048911507}, {
       0.0011612918664723974`, -0.22903946632242522`}, {
       0.02073976316062373, -0.2783618593187709}, {
       0.10642734308630747`, -0.34111740304169225`}, {
       0.13850359181125851`, -0.4175244364912082}, {
       0.1544694916687543, -0.4620195176841909}, {
       0.12427598234299161`, -0.5545956395864629}, {
       0.1147355517523253, -0.6163188199123958}, {
       0.03351188852268967, -0.6501245380054325}, {-0.10514041356606445`, \
-0.6365647332463524}, {-0.2788731332120393, -0.6016156925185567}, \
{-0.48492224993054645`, -0.588799005033022}, {-0.7338164857926798, \
-0.6313673491751974}, {-0.9283687912454819, -0.6386621675138231}, \
{-1.1344166899953556`, -0.6528925403337925}, {-1.3699590476573016`, \
-0.6873730800943142}}]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.547228277182034*^9, 3.547228332632119*^9}, 
   3.547228404658697*^9, 3.547228447723115*^9, {3.5472289480141773`*^9, 
   3.547228975394493*^9}, {3.547235328853211*^9, 3.54723534976801*^9}, 
   3.547235480527575*^9, {3.547236966659205*^9, 3.547237017171834*^9}, {
   3.54723723417488*^9, 3.547237294493441*^9}, {3.547237349964769*^9, 
   3.547237354090961*^9}, 3.5472374529451513`*^9, {3.547237503972003*^9, 
   3.5472375169170027`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7BlQgQMql8NBXF/LzZkxAKpOwCHintfpZh8b
KF/EIUNkdqdha9J+CF/CoeNkUA2HdgFUXsbh1Jlb7RNsC6DyCg4Ch6Z/+VVu
CpVXcuASOaU9e2cTlK/isLm/7Yncg0YoX81BQ+Xdc4UbxVC+hkOj0qFlvoK9
UL6Ww5Rpva4xJ2dC+ToO0RxP5345vADK13OYlclcPyFxEpRv4CBy6XEhAxPM
fEOHl8enaAXeb4HyjRxer3mquOLbRCjf2MHk0elWsfWToXwThytHLrszXWy3
BwDkf04L
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7BlQgQMql8OhnbGT7+KPEKg6AYc5sj78UeuL
oHwRh7LvptfXaBZD+RIOhTGCq80tq6F8GYcDDk98tTIM9kP4Cg7Tnl5VOXkV
pl/JQYX1S2D8ow4oX8WBxU5zW+6BaVC+msO/yfnzH7sshfI1HLYIrIj8n7EY
ytdy4OhPnFU7eQGUr+NwuKf9waxFU6F8PQeDiL27DKVnQ/kGDjK3VrW8+bAQ
yjd0cKjN5bDKXwTlGzn4LXs10YJlJZRv7MB29m17vg7MfhOH47NboyvXLLUH
AOTJTbE=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.547228277182034*^9, 3.547228332632119*^9}, 
   3.547228404658697*^9, 3.547228447723115*^9, {3.5472289480141773`*^9, 
   3.547228975394493*^9}, {3.547235328853211*^9, 3.54723534976801*^9}, 
   3.547235480527575*^9, {3.547236966659205*^9, 3.547237017171834*^9}, {
   3.54723723417488*^9, 3.547237294493441*^9}, {3.547237349964769*^9, 
   3.547237354090961*^9}, 3.5472374529451513`*^9, {3.547237503972003*^9, 
   3.547237516927712*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"ArcTan", "[", 
     RowBox[{"x1", "/", "x2"}], "]"}], ",", " ", "x2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.547236821175963*^9, 3.547236829651112*^9}, {
  3.547236912932259*^9, 3.547236913026988*^9}, {3.547237117449217*^9, 
  3.5472371430640993`*^9}, {3.5472371924867487`*^9, 3.547237192573903*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["x1", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       SuperscriptBox["x1", "2"], 
       SuperscriptBox["x2", "2"]]}], ")"}], " ", 
    SuperscriptBox["x2", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.54723683007699*^9, 3.547236913408142*^9, {3.547237118423543*^9, 
   3.547237143363791*^9}, 3.547237193103591*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"roll", "=", 
   RowBox[{"ArcSin", "[", 
    RowBox[{
     RowBox[{"la", "[", 
      RowBox[{"[", "2", "]"}], "]"}], "/", 
     RowBox[{"Cos", "[", "pitch", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"ArcSin", "[", 
    RowBox[{"xx", "/", 
     RowBox[{"Cos", "[", "p", "]"}]}], "]"}], ",", " ", "xx"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.547229135397551*^9, 3.54722915871692*^9}, {
  3.547229193087755*^9, 3.54722923892201*^9}, {3.547234835557048*^9, 
  3.547234841338093*^9}, {3.5472349806449537`*^9, 3.54723500382154*^9}, {
  3.5472351884017143`*^9, 3.547235188905263*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"Sec", "[", "p", "]"}], 
  SqrtBox[
   RowBox[{"1", "-", 
    RowBox[{
     SuperscriptBox["xx", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sec", "[", "p", "]"}], "2"]}]}]]]], "Output",
 CellChangeTimes->{
  3.5472291516555862`*^9, {3.5472291956535807`*^9, 3.547229239219116*^9}, {
   3.54723483950945*^9, 3.547234841924375*^9}, {3.547234981425459*^9, 
   3.547235004444879*^9}, 3.547235189202528*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5472292013973427`*^9, 3.547229203470211*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"xx", " ", 
   RowBox[{"Sec", "[", "p", "]"}], " ", 
   RowBox[{"Tan", "[", "p", "]"}]}], 
  SqrtBox[
   RowBox[{"1", "-", 
    RowBox[{
     SuperscriptBox["xx", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sec", "[", "p", "]"}], "2"]}]}]]]], "Output",
 CellChangeTimes->{{3.547229203874093*^9, 3.547229210210978*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"p", "\[Rule]", 
   RowBox[{"ArcSin", "[", "yy", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5472292177863398`*^9, 3.547229224429706*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"xx", " ", "yy"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["yy", "2"]}], ")"}], " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["xx", "2"], "+", 
       SuperscriptBox["yy", "2"]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["yy", "2"]}]]]}]]}]], "Output",
 CellChangeTimes->{{3.547229224804387*^9, 3.5472292416993933`*^9}, 
   3.5472348447238913`*^9, 3.5472349880661087`*^9, 3.547235183198717*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"p", "\[Rule]", 
   RowBox[{"ArcSin", "[", "yy", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.547229229900858*^9, 3.54722923160189*^9}, 
   3.547234999087823*^9}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["yy", "2"]}]], " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox["xx", "2"], 
      RowBox[{"1", "-", 
       SuperscriptBox["yy", "2"]}]]}]]}]]], "Output",
 CellChangeTimes->{{3.547229232005629*^9, 3.547229244365779*^9}, 
   3.547235007398044*^9, 3.547235190970461*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"%", ",", " ", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"xx", ">", "0"}], "&&", 
     RowBox[{"yy", ">", "0"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.547235164892858*^9, 3.547235174870717*^9}}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["yy", "2"]}]], " ", 
   SqrtBox[
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["xx", "2"], "+", 
      SuperscriptBox["yy", "2"]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["yy", "2"]}]]]}]]], "Output",
 CellChangeTimes->{{3.547235175674904*^9, 3.5472351937298527`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["pitcherr2"], "Input",
 CellChangeTimes->{{3.5472271332274427`*^9, 3.547227137268284*^9}, {
  3.5472282480290337`*^9, 3.5472282506501293`*^9}}],

Cell[BoxData["0.42896367849928646`"], "Output",
 CellChangeTimes->{{3.547227135361524*^9, 3.5472271378615513`*^9}, {
  3.547228246807126*^9, 3.5472282510012503`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"ArcCos", "[", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"la2", "^", "2"}], "+", 
      RowBox[{"la3", "^", "2"}]}], "]"}], "]"}], ",", "la2"}], "]"}]], "Input",\

 CellChangeTimes->{{3.547227010949708*^9, 3.54722704400559*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["la2", 
   RowBox[{
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["la2", "2"], "-", 
      SuperscriptBox["la3", "2"]}]], " ", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["la2", "2"], "+", 
      SuperscriptBox["la3", "2"]}]]}]]}]], "Output",
 CellChangeTimes->{{3.547227037319652*^9, 3.547227044833212*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"ArcSin", "[", "m", "]"}], ",", "m"}], "]"}]], "Input",
 CellChangeTimes->{{3.547224395099785*^9, 3.547224406204587*^9}}],

Cell[BoxData[
 FractionBox["1", 
  SqrtBox[
   RowBox[{"1", "-", 
    SuperscriptBox["m", "2"]}]]]], "Output",
 CellChangeTimes->{{3.547224398218734*^9, 3.547224406845392*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["S"], "Input",
 CellChangeTimes->{3.5472249603078012`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0023703888151847775`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.0023703888151847775`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.547224960506591*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"m", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"1", "-", 
      RowBox[{"m", "^", "2"}]}], "]"}]}], ",", " ", 
   RowBox[{"m", "\[Rule]", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5472244968557863`*^9, 3.547224509586693*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{
   TagBox[
    RowBox[{"(", 
     RowBox[{"-", "\[ImaginaryI]"}], ")"}],
    "DirectedInfinityCoefficient",
    Editable->True], " ", "\[Infinity]"}],
  DirectedInfinity,
  Editable->False]], "Output",
 CellChangeTimes->{3.547224510096581*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ArcSin", "[", "m", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"m", ",", " ", 
     RowBox[{"-", "Pi"}], ",", " ", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5472244496046143`*^9, 3.547224456612809*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkHs01Hkfx0WPImzakm5kn020WxKN1qpPF5WE1iT0RBfVjiKesmi7kBrJ
rVAml1Kr1FQ2ipDooyuSa6hmY5jRmBm/me/cR5J5PH+8z/u8z+u8z/uct01I
JH2/vp6eXtS4/u/dTOMzvTqCX5c4pnYZf0GL7CzfJAVBXYOpk4nLMNY4VB/u
4hFkNAzrVjZoMeRNf+a/3xEkTbwG62gtTt5v9PDwC4KHN8mX33TQ4t+6pR1Y
RnDa3DL/UoUG6XmBCtOb432vuKdVTzQ47HxqWtAlghELFnNXJ2vQ/WArffgP
guJQ+8qNSzQonqg9smE/wSL9PY43Jmow45rVxUvbCHqfGP3euEeNnzoPvVtK
IyhPDDpAZakxCkz8DmilaD/nTam1mRrd12HiXoEUE0/Hz+mnVGix8UhlcJcU
WTkVVflvVVjl82E2vUyKO7hW1XfPq3A0+Ga/a+Q4T5gyHDtHhcwTbpEmgxJc
mCjrr/FR4rZT5LphtwS/8DYPGbgo0ZZZ2KH3SoL3/7i2/aa1EhtSJ9PUhRK8
4z2c0y9XoGl+52jPTglmGtq+luQqkPU4PKWkm8JzjAmoUMuRUWtdc+cVhS97
5SoGT44rnnVIbpRTWDnLqtq0VY6chhW+OVkU2oYnGX9my9Hqw0TLBB8KH/e2
eV7dKcfbmitF9NdDuDU0rMilXYZVTs116kdivH32b8v4PIJLZ6Z7TLslxp1h
IcyqkwTZI15tS1hiTKk6xbbcQzDn2VsuI0aMLnnm//G0Ixi75e3YR5oYD72J
ddxTJUVaWJPb00oRTm+MWvKxV4LlhY1VZx8LUcu5EpeyhsIS89elM2sFGHDD
/Mh2TxHSd5p79t0T4PtlI4NiRxFq7gbx2XkCzCpPMrowS4Ru7soZrkfHeXZo
hJlIiA0x848HOQnQNS2nmX9OiH3/HFv/153PWImzPWqaBtH8lgNnEWsAQ6/e
3yQMEmCUa67Bqkgeat61THYv4qNr4i4P4cFP6GsctsHkSA+S0NEL8ec6cSr/
Yev8wU488zLfFYbrcdAuNrh0bgN2P3F7edegFHvjJhwLNCzFXT9v+OaXeR9s
6xePjmbfh36PwG0RBQ3gTp9sq3zVAKoSKLH8tRNaan9P+TO7EzhFVhHytk9Q
blhz0nqgB45HPPHYdo0Hur76mav7+LAW1PvMSniwulGfk6vkg/FUh4T6pzyY
nLLJeNRwAHIeFD7+pZcHJud13z4uHoAKVfIiq3l84Izx3caOD4DiWKDJYB4f
fl3BtPsy6zMcTFK3HmUNQOnuF1Y+wQIIvO4QcCVdACoHL+rHSSJQTerdc6dA
AN7KYQHNWgQZkWnhFSUCyO93mrTDRQSNq0QJbe0CqD0lyuYwRODaU1g80WIQ
LrNXOdc2imDubAv9QwWD8OReP31Dphi4F0eLV5YIwaYusHeHIwUnvt6t9KwT
QoeiWezsRYHl3u3PA9qFsHAjM8OeQcFvyyreH1YKwU/Z7sO4SkFdW6T+rfHd
uOWXK1dPkUChKT/ArE4ECkl9dhclgd+TGvW5bWL4/D4hjdVEIOi7sMrGPjHQ
L3Ts7BYS8L1sEl4uE0N7zkOBtYEM3G5v6UqeOgStSZlBjfNlMK2+67bzb0Pw
gyoqzC5YBrWGPK+U1iHgtlzXZ3Jk8PD8mQnR3CHwk50YY4tlwLZYULGLDEH4
84XmQyMyyLINtV7+HQXinmD3xjlyCN0glXN9KOBsDvmmv0sO08+OsJa3ULCZ
WhfjSMnB2OzK5vm9FDwjX6emj8lBl71Sb4qUgqVC+/kzzBUgLjp1oM9UAtX1
ib+U0hRQ98rQLdVbAmypkcEqpgIqvNmy6GAJRNevOW2Xo4B7XZuKdh+SwJoP
XKFXsQJYn9PMaOkSuORuZ+vVpYDwf33f3/dWAvszn5QcWKSEkPTy7KZPEhjE
kTHGaiUEzPD3rBj/kf3BljzyV8LaBbllqSZS2ONmlLuFqQTL9dZnaV5SKFo3
yUPFV4JZc52rTZAUWioSIoWjSjDYFkKmhEvh8hxuwVYLFUj3FQX2p0phfWt8
SrGnCl4wf/oprUkKMTVb0xnVKnDVZV+3/Wc8+z7IP/peBQ//1LN4JpaCLDlu
xEetgsKILj2NEYG9h+b6ZzmpYbYIYjJmEdDzHy2z91ND1t67Q4vsCcxbMnLy
U7QaTgfGd+/yIOCZPEKfVauGkQ7R5pEAAnn7mGwtTw1HvP2eXWIQeJ7BKisw
1oC4/inNIZZA53/zKX9nDYSstS9uPEtA3nvNMW63Bjg1F232sQisynbvyLyg
AbrLGGusiMDSEtFf8FwDbx6EmuQ+IvDjl7fLEr9oYO3P7xKcXhF4d3k9kdK0
UH1rpba5k8Al7jzdopNacLRhh4cOEBBUGI+Vt2uBnT+Np68iEDWdct7hPgzx
sT9UV+gIZGwpHKzVDcP/AF+7C2k=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{-Pi, Pi}, {-1.5651450574104604`, 
     1.5624369667247926`}}, {{-3.141592653589793, 
    3.141592653589793}, {-1.5651450574104604`, 1.5624369667247926`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.547224457028446*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["S"], "Input",
 CellChangeTimes->{3.54722337169458*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0023703888151847775`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.0023703888151847775`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.547223352322096*^9, 3.547223372455763*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["K"], "Input",
 CellChangeTimes->{3.547223377713017*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5781282827551448`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.5781282827551448`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.20539498782272303`"}], ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", 
     RowBox[{"-", "0.20539498782272303`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547223378347715*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"trueX", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", 
    RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.54722343381299*^9, 3.5472234486072607`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.029386377891248774`", ",", "0.02293992375828348`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.04128713029796123`", ",", "0.04713836354332199`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.06401000800209303`", ",", "0.11634144005863363`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08678288263335643`", ",", "0.20259961939889892`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.12328907455974114`", ",", "0.239577584870553`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.11979555254652041`", ",", "0.25148663012355255`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.14664631607813355`", ",", "0.21587406895278768`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.193909155596529`", ",", "0.21472432462696805`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.20342277789441723`", ",", "0.2271678888017426`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.1987903597362111`", ",", "0.22200813594841068`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.14800981194945842`", ",", "0.21940943390812936`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1089314348082894`", ",", "0.19820957307773382`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.044318550147325095`", ",", "0.2066308393021054`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.04110653838351924`"}], ",", "0.24519243070960772`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.1128882597315782`"}], ",", "0.3183705124416041`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.1555321818766488`"}], ",", "0.3546338165317775`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.14826605413405533`"}], ",", "0.4247938248150562`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.12186241324886807`"}], ",", "0.5331079756751664`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.1258930080208506`"}], ",", "0.6728404371521464`"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.547223441640553*^9, 3.547223448983294*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.547223382508573*^9, 3.547223388596002*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.5781282827551448`", "0.`"},
     {"0.`", "0.5781282827551448`"},
     {
      RowBox[{"-", "0.20539498782272303`"}], "0.`"},
     {"0.`", 
      RowBox[{"-", "0.20539498782272303`"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.547223388985073*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["S"], "Input",
 CellChangeTimes->{3.5472233355471077`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Thread", "::", "tdlen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Objects of unequal length in \
\[NoBreak]\\!\\(\\(\\({\\(\\({1, 0}\\)\\), \\(\\({0, 1}\\)\\)}\\)\\) + \
\\(\\({\\(\\({\\(\\(-0.09090909090909094`\\)\\), 0.`, 0.`, 0.`}\\)\\), \
\\(\\({0.`, \\(\\(-0.09090909090909094`\\)\\), 0.`, 0.`}\\)\\), \\(\\({0.`, \
0.`, 0.`, 0.`}\\)\\), \\(\\({0.`, 0.`, 0.`, 0.`}\\)\\)}\\)\\)\\)\[NoBreak] \
cannot be combined. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Thread/tdlen\\\", ButtonNote -> \
\\\"Thread::tdlen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.547215449467029*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Thread", "::", "tdlen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Objects of unequal length in \
\[NoBreak]\\!\\(\\(\\({\\(\\({1, 0}\\)\\), \\(\\({0, 1}\\)\\)}\\)\\) + \
\\(\\({\\(\\({\\(\\(-0.09090909090909094`\\)\\), 0.`, 0.`, 0.`}\\)\\), \
\\(\\({0.`, \\(\\(-0.09090909090909094`\\)\\), 0.`, 0.`}\\)\\), \\(\\({0.`, \
0.`, 0.`, 0.`}\\)\\), \\(\\({0.`, 0.`, 0.`, 0.`}\\)\\)}\\)\\)\\)\[NoBreak] \
cannot be combined. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Thread/tdlen\\\", ButtonNote -> \
\\\"Thread::tdlen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.547215449470302*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Thread", "::", "tdlen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Objects of unequal length in \
\[NoBreak]\\!\\(\\(\\({\\(\\({1.`, 0.`}\\)\\), \\(\\({0.`, 1.`}\\)\\)}\\)\\) \
+ \\(\\({\\(\\({\\(\\(-0.09090909090909094`\\)\\), 0.`, 0.`, 0.`}\\)\\), \
\\(\\({0.`, \\(\\(-0.09090909090909094`\\)\\), 0.`, 0.`}\\)\\), \\(\\({0.`, \
0.`, 0.`, 0.`}\\)\\), \\(\\({0.`, 0.`, 0.`, 0.`}\\)\\)}\\)\\)\\)\[NoBreak] \
cannot be combined. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Thread/tdlen\\\", ButtonNote -> \
\\\"Thread::tdlen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.547215449473607*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Thread :: \
tdlen\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.547215449477117*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547189885829504*^9, 3.547189887152693*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"la", ".", "la"}]], "Input",
 CellChangeTimes->{{3.547187042686837*^9, 3.547187044325267*^9}}],

Cell[BoxData["1.7864270606252592`"], "Output",
 CellChangeTimes->{{3.5471870446813517`*^9, 3.547187057997748*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"ArcSin", "[", "c", "]"}], "]"}]], "Input"],

Cell[BoxData[
 SqrtBox[
  RowBox[{"1", "-", 
   SuperscriptBox["c", "2"]}]]], "Output",
 CellChangeTimes->{3.547187767216092*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"truela", ".", "truela"}]], "Input",
 CellChangeTimes->{{3.5471845424253807`*^9, 3.547184555176745*^9}}],

Cell[BoxData["1.0000000000000002`"], "Output",
 CellChangeTimes->{{3.547183575983349*^9, 3.547183654227161*^9}, {
   3.547183701367261*^9, 3.547183732535728*^9}, {3.547183867912273*^9, 
   3.547183883199213*^9}, {3.5471839148378963`*^9, 3.547183922123979*^9}, 
   3.547184434211605*^9, {3.547184546561964*^9, 3.547184555618678*^9}, {
   3.5471846964024687`*^9, 3.547184709419695*^9}, 3.5471848038466053`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["u"], "Input",
 CellChangeTimes->{3.5471834745839443`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.7471412601096246`", ",", "0.5781747148459125`", ",", 
   RowBox[{"-", "2.5237671973392795`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.547183474737585*^9, 3.5471834969699163`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.547182821187653*^9, 3.5471828427911777`*^9}, {
  3.547182874559194*^9, 3.547182908724135*^9}, {3.547182949245598*^9, 
  3.547182978354258*^9}, {3.547183109553073*^9, 3.547183145885871*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {Hue[0.67, 0.6, 0.6], Point3DBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAABQAAAADAAAA274u5+CtWb+QZoIxcPpzP6K16Pzk
dXI/U8u+HSGWZL//HeXrdV+KPwfHwUIB64E/O6d1gVtncb/AINCXkyGRP+ok
VKMqPYM/rRQVyOaNZb8eNEn/5GiSPwazyuP1IIg/cJ57AuqJYT9wleb1KyCQ
P4RuuvzhDIo/EeK8DIe0fj+h+rQsxWSJPyVKORU0dJI/ZS4BlRazhj+4UcoT
weeBP4mk7XSVvpQ/YDSvQ+wzjD/tvJuff4t5P4RVRHONapo/u1VlopVwlD8j
K8rb5i9oP4W8Yfei4qA/TeR7dhtnmD/rMmrbskd0v2MUaRcj3KY/MgMwHda8
mT9Xrdz/YWmQv0LeYXb13q4/kdGHcvMclz8uIuTG6Wqgv7IbgNV6drM/p6/f
4Rw2kD9geiTVj0Smv0SmANjl3rc/IgbByd/Wiz9tS1qCyx+rv+77x9/4D7s/
z16TZGKugz8aYx4c+QmwvwKiY3FrQb4/u6PPWibBez+wb5gqI/qxv22fvXXY
6sA/wMKQLI9Ndj80PjHtrLO0v0uHIr9AIMI/1dp/4FcZaD9g4MmuoiO3v0+N
I0DHAcM/BzOUeBBlbD967xJYOFi6v6O9JTyaKcQ/kH+zmfd7Mz8p0hYM0ci8
v1PEI9kokMU/gIDxEw==
     "]]}, Line3DBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAABQAAAADAAAA274u5+CtWb+QZoIxcPpzP6K16Pzk
dXI/U8u+HSGWZL//HeXrdV+KPwfHwUIB64E/O6d1gVtncb/AINCXkyGRP+ok
VKMqPYM/rRQVyOaNZb8eNEn/5GiSPwazyuP1IIg/cJ57AuqJYT9wleb1KyCQ
P4RuuvzhDIo/EeK8DIe0fj+h+rQsxWSJPyVKORU0dJI/ZS4BlRazhj+4UcoT
weeBP4mk7XSVvpQ/YDSvQ+wzjD/tvJuff4t5P4RVRHONapo/u1VlopVwlD8j
K8rb5i9oP4W8Yfei4qA/TeR7dhtnmD/rMmrbskd0v2MUaRcj3KY/MgMwHda8
mT9Xrdz/YWmQv0LeYXb13q4/kdGHcvMclz8uIuTG6Wqgv7IbgNV6drM/p6/f
4Rw2kD9geiTVj0Smv0SmANjl3rc/IgbByd/Wiz9tS1qCyx+rv+77x9/4D7s/
z16TZGKugz8aYx4c+QmwvwKiY3FrQb4/u6PPWibBez+wb5gqI/qxv22fvXXY
6sA/wMKQLI9Ndj80PjHtrLO0v0uHIr9AIMI/1dp/4FcZaD9g4MmuoiO3v0+N
I0DHAcM/BzOUeBBlbD967xJYOFi6v6O9JTyaKcQ/kH+zmfd7Mz8p0hYM0ci8
v1PEI9kokMU/gIDxEw==
    "]]},
  AutomaticImageSize->True,
  Axes->True,
  BoxRatios->{1, 1, 0.4},
  ImageSize->{363.1321775203956, 369.1313403493984},
  PlotRange->{{-0.004248959964891881, 
    0.025134416133371924`}, {-0.1124392179979813, 0.017978265839975298`}, 
    Automatic},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {Automatic, Automatic}},
  ViewPoint->{1.3969855078887186`, -0.06988487162097719, 3.0811601054582365`},
  
  ViewVertical->{-0.26412418655897646`, 0.0434222363245863, 
   2.408776820643533}]], "Output",
 CellChangeTimes->{{3.54718283179038*^9, 3.5471829786094837`*^9}, {
  3.547183122511079*^9, 3.547183137675531*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{"Sin", "[", "t", "]"}]}]], "Input",
 CellChangeTimes->{{3.5473482486968927`*^9, 3.547348270511297*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "3"}], " ", "=", " ", "1"}]], "Input",
 CellChangeTimes->{{3.5473484184373837`*^9, 3.54734843073274*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "[", "\[CapitalTheta]_", "]"}], "=."}]], "Input",
 CellChangeTimes->{{3.547357381719739*^9, 3.547357403512549*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Sigma]", "=."}], ";"}]], "Input",
 CellChangeTimes->{{3.547356763032892*^9, 3.547356768482218*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "\[CapitalTheta]_", "]"}], "=", 
   RowBox[{"2", "g", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[CapitalTheta]", "/", "2"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547355124730682*^9, 3.547355128029085*^9}, {
  3.547355167840547*^9, 3.5473551997441807`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "\[CapitalTheta]_", "]"}], "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"r", "^", "2"}], "+", 
     RowBox[{"g", "^", "2"}], "-", 
     RowBox[{"2", "r", " ", "g", " ", 
      RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.547355221820574*^9, 3.547355250352222*^9}, {
  3.54735619988284*^9, 3.547356202641375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "\[CapitalTheta]_", "]"}], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{{3.547357075547295*^9, 3.547357081964802*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "\[CapitalTheta]_", "]"}], "=", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"f", "[", "\[CapitalTheta]", "]"}], "^", "2"}]}], "/", "2"}],
       "/", 
      RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], "+", "0.1"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.54735708296264*^9, 3.547357100209097*^9}, {
  3.547357352216096*^9, 3.547357353933836*^9}, {3.547357711993374*^9, 
  3.5473577124712276`*^9}, {3.547357836043847*^9, 3.5473578368727713`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "\[CapitalTheta]_", "]"}], "=", 
   RowBox[{"1", "/", "\[CapitalTheta]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.54735727543215*^9, 3.547357284730874*^9}, {
  3.54735737127116*^9, 3.547357372647334*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "\[CapitalTheta]_", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "pi"}], "/", "\[Sigma]"}], "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"\[CapitalTheta]", "^", "2"}], "/", 
       RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547357491938415*^9, 3.5473575631313*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"den", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", "Pi", " ", "g", " ", 
     RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], "  ", 
     RowBox[{"p", "[", "\[CapitalTheta]", "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"\[CapitalTheta]", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{
      RowBox[{"g", ">", "0"}], "&&", 
      RowBox[{"r", ">", "0"}], "&&", 
      RowBox[{"\[Sigma]", ">", "0"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.547356408778954*^9, {3.547356752630014*^9, 3.5473567592043123`*^9}, {
   3.547357097172926*^9, 3.547357106889028*^9}, {3.5473571409121323`*^9, 
   3.547357141447798*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2566370614359172`", " ", "g"}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "49.99999999999999`"}], " ", 
       SuperscriptBox["g", "2"]}], "-", 
      RowBox[{"99.99999999999999`", " ", "g", " ", "r"}], "-", 
      RowBox[{"49.99999999999999`", " ", 
       SuperscriptBox["r", "2"]}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "0.06283185307179587`"}], "+", 
      RowBox[{"0.06283185307179587`", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"199.99999999999997`", " ", "g", " ", "r"}]]}]}], ")"}]}], 
   "r"]}]], "Output",
 CellChangeTimes->{{3.547357108257711*^9, 3.547357142929599*^9}, 
   3.547357286848176*^9, {3.5473573576643953`*^9, 3.547357378123045*^9}, 
   3.547357411447299*^9, 3.5473575738396683`*^9, {3.5473576704810257`*^9, 
   3.5473577157646017`*^9}, 3.54735785024226*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"den", "=", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"g", "+", "r"}], ")"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]", "2"]}]]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", " ", "g", " ", "r"}], 
         SuperscriptBox["\[Sigma]", "2"]]]}], ")"}], " ", "\[Pi]", " ", 
     SuperscriptBox["\[Sigma]", "2"]}], "r"]}], ";"}]], "Input",
 CellChangeTimes->{{3.547356893574789*^9, 3.547356899507141*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547356420126202*^9, 3.547356425087242*^9}, {
  3.547356836308454*^9, 3.547356852658538*^9}, {3.547357136672316*^9, 
  3.547357145428199*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", "Pi", " ", "g", " ", 
     RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", "\[CapitalTheta]", 
     " ", 
     RowBox[{"p", "[", "\[CapitalTheta]", "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"\[CapitalTheta]", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{
      RowBox[{"g", ">", "0"}], "&&", 
      RowBox[{"r", ">", "0"}], "&&", 
      RowBox[{"\[Sigma]", ">", "0"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.547354568383956*^9, 3.547354630237143*^9}, {
   3.547354763213921*^9, 3.547354769004703*^9}, {3.547354848966901*^9, 
   3.547354849846388*^9}, 3.547355009172641*^9, {3.547355062181775*^9, 
   3.547355078888608*^9}, {3.547355204208963*^9, 3.547355208625207*^9}, {
   3.547356314136805*^9, 3.547356320960084*^9}, {3.54735656560001*^9, 
   3.5473565658560266`*^9}, {3.5473566699785957`*^9, 3.547356674745842*^9}, {
   3.54735671706081*^9, 3.547356717384141*^9}, 3.547356817432954*^9, {
   3.547357121984796*^9, 3.547357149271565*^9}, {3.547357646451229*^9, 
   3.5473576466658163`*^9}, {3.547357840429414*^9, 3.547357840557136*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.9739208802178716`", " ", "g"}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "49.99999999999999`"}], " ", 
       SuperscriptBox["g", "2"]}], "-", 
      RowBox[{"149.99999999999994`", " ", "g", " ", "r"}], "-", 
      RowBox[{"49.99999999999999`", " ", 
       SuperscriptBox["r", "2"]}]}]], " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "0.031415926535897934`"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"49.99999999999998`", " ", "g", " ", "r"}]]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"149.99999999999997`", " ", "g", " ", "r"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"0.015707963267948967`", " ", 
          RowBox[{"BesselI", "[", 
           RowBox[{"0", ",", 
            RowBox[{"99.99999999999999`", " ", "g", " ", "r"}]}], "]"}]}], 
         "+", 
         RowBox[{"0.015707963267948967`", " ", 
          RowBox[{"BesselI", "[", 
           RowBox[{"0.`", ",", 
            RowBox[{"99.99999999999999`", " ", "g", " ", "r"}]}], "]"}]}], 
         "+", 
         RowBox[{"0.015707963267948967`", " ", 
          RowBox[{"StruveL", "[", 
           RowBox[{"0", ",", 
            RowBox[{"99.99999999999999`", " ", "g", " ", "r"}]}], "]"}]}], 
         "-", 
         RowBox[{"0.015707963267948967`", " ", 
          RowBox[{"StruveL", "[", 
           RowBox[{"0.`", ",", 
            RowBox[{"99.99999999999999`", " ", "g", " ", "r"}]}], "]"}]}]}], 
        ")"}]}]}], ")"}]}], "r"]}]], "Output",
 CellChangeTimes->{
  3.5473571499829073`*^9, 3.547357290756062*^9, 3.547357421676014*^9, 
   3.5473575839641848`*^9, {3.5473576544444933`*^9, 3.547357693703092*^9}, 
   3.547357733630715*^9, 3.547357847675621*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol", "=", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"g", "+", "r"}], ")"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]", "2"]}]]}]], " ", 
     SuperscriptBox["\[Pi]", "2"], " ", 
     SuperscriptBox["\[Sigma]", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          RowBox[{"g", " ", "r"}], 
          SuperscriptBox["\[Sigma]", "2"]]], " ", 
        RowBox[{"BesselI", "[", 
         RowBox[{"0", ",", 
          FractionBox[
           RowBox[{"g", " ", "r"}], 
           SuperscriptBox["\[Sigma]", "2"]]}], "]"}]}]}], ")"}]}], "r"]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.547356903062646*^9, 3.5473569056304007`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5473563349788637`*^9, 3.547356344600129*^9}, {
  3.547356863137066*^9, 3.547356872905468*^9}, {3.5473569128378763`*^9, 
  3.5473569416876297`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"sol", "/", "den"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"g", "\[Rule]", "1"}], ",", 
      RowBox[{"\[Sigma]", "\[Rule]", "0.8"}]}], "}"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"r", ",", " ", "0", ",", " ", "5"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5473563458769608`*^9, 3.54735637137044*^9}, {
   3.547356429383841*^9, 3.5473564304316483`*^9}, 3.547356468691923*^9, {
   3.547356908066289*^9, 3.5473569705484343`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF2Xk4Vd3bB3CEDEkoRcYSkrFSSbkVkrEyFSVFGQpFlKERj6EnpR5KMqRB
IkNCqMwiZCjJPB8z53Cmbcq7lt/16i/X53Kuc/Zee6217/W9pe0vmZ1nY2Fh
IbGysOC/cTftOdXO+WuJKOlazEnPwMr2PrkJybfw/06sTvAYk8xf9q1qRUM1
u7Jlp2eEtbsqV8Mfxf85gbcmUECvAfS2/s9O0Ph03PMn2ObpLPnCoxuFDRHN
8Oq9xpLdSVv7s9NbIa4twBx7xfvXa4RD2iBGIsUMO/q6tNY1u3aYSh0/im1v
3930pqYdrGV8jmArHo672LK7A3o/OJtgC2jO51LcOoD3v7XG2Aylk2zcrzqg
fssdQ+wOqQIT6bYOKJZ/eRi7REjkqcaaTnh/2e0Q9s7wqkK9bZ1QQijqYSdx
+gwcO9QJA7ENOtgit+V4Tp/tBCa31UHsezPNKheud0LclwJt7D+ewZZXn3RC
Dtu8FrbHuLp/QFYn3JsQ3o9t1R35NWa4E/Z11O7BrjqhO560ogsYjWd2YWv+
oAp8kOiCWP3iHUvja/Ryd5FGF9AWBlWxpSrMbGssusDIvkEJ+5EWW+DvS13g
GXpNAZsj731y/90u0JX5LYs9mrKGNlfcBQKByRLYp2SKRbg6uoDrPp8odn3c
JVjL7IKg+wLrsA+ulzwvJdgNMPyOHzs7ou6uolI3uLn/5saW47mZuedwNxRa
h67AjglUatZ16Ibn+3PnZ/H8uHpP2vZpNyx+sZvAniZr6rtkd8PVzvIB7HMu
Y67e9d3A0uvbjv27L+bRndFueO3s0Yi9RXlLx1e2HvCXjPuK3TU6P2m8pgeM
UicKsKPfNLH+FO8BvWdm6dg80kFy3Xt6wJxd8BF21b6HKjf1euAx+VQgdvCJ
+N3iZj3A2//kCrauVyp8Pt0Da3Qy7bHZIvL0T17sgd0HHx3FLk6tODJ7rQfW
18vvx75Z+eP406AeUL1jK489+2fc6XdcD5z+R3t2BjlPdPbS1ZQeYDwp6MG+
umulz7qPPUDedKECe6fZ2tvZZT1wt0I1GXvaTTrUvKEHuvdPhmJnhilHTHf0
gLfJbSds99ea0Q9H0OdjS3Wwxzosk+vZeqH63CcagZxC2Ge68/fCiWjxb9jO
ay/n8Yn1AkkzJAZbVvVG8Tv5XkiPrHTGHjC6W2Wk3gtGrKk7sF84PWkYPdAL
5xtnZ5nIZwJftYSZ9oLnxhuF2B0FhcOVTr2QZSKlgR3TXENx9OqFde8+kRnI
J6ZbCI47vRDMdzMRW3j1IMvr8F4ofyNqit20lcqlG4Oux1ibTsfzU49FoD+p
F46qPX2MffQsn0jAh14QzahWw66NlttaXNsLbWI7LGjId7N3qtm19sIt9Zg2
KvLhhgMaf0i9MJSqYY3NOW56IG66F6LexNRPI5evPGWwb7EX+OpgP3bAZpdj
7bx9YDL1KnEKWRuuWvtt6IPxAq15CvLnqxEueWp9cHvll4dkZL9HcR7Htfqg
heRQM4m8Jz3Fl2HYBxtOlxETeP/49vFO1PE+2NoiK4KdTSoP23muD9gNGraN
I3uy/nj483If8JcxVcaQVcW7n3re6AMtthqZUeQ0i5m3mY/7oE+D3jGE7HqZ
M+vIyz649/ZS/CCywj2hgsmMPgiuaDcm4f2mTKla8VsfuCsccu3D66V774+a
X33A1sfS3oO8aU6/7UJfH+TTZLZ3I8dvtx9NnusDmbqbke14fZtemtbn6oe9
/MzYVmTRC9dnB9f2g77+qdDfyI8TH/NsUe6HsUNZrD+RLb68FCzf2w/1rFb3
GpAFWzNFHfT7YUrIiPod+f6aGoXEM/2wi5xmWoWcv1s8x9S9H8rLY+bK8fw6
fQnm/fvhF+dG7xK8f6UJWRx/0g8q9+xL85Edm853sb/uB90p4YgcPB/mPjpn
ZfXDva27JN4jDxucusFX1w8HrYfc3iCv9Uhf+am9HyjWCvIvkCGa5ZHzSD9w
Cu2OjMXXP/gqqYx9ALYQmzwi8P7Nx1T1EByAuIO6rWHI4zsNPklIDUAGZ2Zv
ALJO4ES9r+YANPVmFV3B6ysFbOQMBmDEh3T3Ip7fjQ8HmqwGgL0iqtcemSK5
a0bFcwBatcREjyKL6YcGdt4agJ1rUsl6yPrubXz/hg9AdqvMHk08/p9vbhpM
Rt/f48wpg/ytv+Hdf7kD8E9O1Y31yDSezbsPlA+AuP9eIx5kI+tKo9juAZC1
O1A1IYX2i9sizQYTA7BYzeHUhfzizcUzzNkBKL20a28dMkHn9zYTJsGF2PgT
qcibxe0XFzeTgLbRJiIa2VQ3OyxNjQSBbv/8CkJ+/ehEPJcJCYbe77a1QW7I
T5HPtSFB0SqzMB3k+Z75LAdnEpAa/kRtQzZTSawsDCSBhlmnJCGJ9jsr6jHX
hyTIDXcP7EB+e0OvQySBBDWaJpFFyCy1IxSvAhIsUFmC7yBvo2r6b6oiQVB0
qcEZZCvR+xwNv9D3n39zez9ymvN20W1TJHDakc1FlZiBlgdBr1r+kEBST0Kj
Bpn9Y7Ny8KpBSKhXfJaIbMPhr9MrNwhxLv5ph5GDFb9/v68+CC9FZTVEkN+b
S57YpzMIPbGH04bEZ4DrRZnrk9OD0Dt8iuUm8o5v65i6roPAfb8sVw/5NMXp
zrTvIOydv8vOi5yjteqxSdQgmI+85L8vhuqJdouiFbWDYCTd5nJlI3qfPOt1
82gdBNUc3hZZ5Cwbd7HuwUEISSS0f4ui+qQtxLeAdQg8DfReKCO/e7pWXp5/
CJo2qLr8EkHryTqxOUpsCHi8KJU+yK9aCnZ47B6C1zqepOwNM2Acrd/XpTsE
C3ZXL5kg0443RRibDYGZR7tc3/oZ0Ps9MSHnNgS187tyF4VnYPCXVHLXiyHY
lftsN9c6tB6j0qyMM4dA7FzJlltrZ2CX5V6Ogi9DYPmGx25KaAZCmszto1qG
gNp/Y1+lINqPInvWrBgcAnYjyisF5BZzt6LL1CH4EiLTGyowA/I/g8WMVw+D
xLvFk+pr0Hx5JFSTv3EY2FQETwfyz4CP2XNfua3D8LHie0HNajS/G/Ob2XTR
58V5eY34UD3XMB6R7zsM7B78n1h40P4R4QtyIcPw2JFbX4J7BgqOcE5GRg7D
aOY7LXWuGeCtlzS6nDEMa3cxFkw50fh9N+OQIw3D4BWJDGU2NH7h3R8ip4ch
5eR86FpWNF+NXe3ZWEbgREsjbXqRAJPaf4o6RUfg+wBd6ukCAZPVeb6RR0dA
MSPcNJQg4PFdPXm20yNwf5x1tyqTAC3DH82XLo7AiC5wNNAJePBtbIdR8Ahw
/DZcw5wmQLVKYpL18wj4RkWZ9Y4T4FERZH9JbhQywt7nS3QTIDFwiJOxYxRu
i8t6nukkoIaNO+W69ijsLUZ1XDsBW7TDp8KsR0HYnttu5jcBrQVRt1/9Owqp
Fbbn7RoIOJCZFN9KHoVwtz3lHUXoeuucD56ZH4VXXu9K0r8Q8GxCYXCQawzU
U9qD/D4RQFfIUKJJj8GEa0LfYi4Bb19//LzaYgxqB814vqYRIPCsqk0nbwx6
V8/qOMYQUJh/92Z1+RgYemyfG3pCwMUW403HGsdAcv7ESccoAirWNbqcHh2D
LJFUbpsIAnwjWgkfsXFo3MkuIhNMQO8/o8Lpt8fBeMzN5pYHgergVeYbDCbg
aUKzupsBAbUxQr5pVhNgOHmktfMQAYPlogkHz02AO3qpWOoSICqydcz11gSI
zCo02QIBQSV6gSU5E8BZKJjdok5A/JjxW6uyCdgt/Y9QxA4C8tZZ1I81TIDO
q3lRMzUCJlzsNwqPTwAH30Q6U5EAK8FbHy5smgQvSonHTxkCLu8Lbl1UmQQ/
xuPno5sIuOsYvhi5fxKuf3d04pcmoKjgmVHRiUmocVAWCBQnoG3ghYeF4ySY
f8uK/rGRANrqlCcjVyZB20mcVU2UAHmHvH6hB5Pg6nrm5cb1BBwML+J+GzsJ
X2oV3JPXEXDq41cVrZRJ0Ct5rKm3loCHvL/8nSsm4dIFg74MAQLeqXckLvyY
hMcsdrturiHgq11/5aOeSWi//DDAlp+A2Q9TQl/mJuH3OcrvI3wErO0iNMy4
yVCclajjsIoAZS6WM0PCZNj4wdY1lJeAw9tXBl+XIUMXccq/iIcAh1Or3wls
J4O79L+PuZBvBq/7kQRkGJa63uPATUB0phihaUIG+Rv2Po1cBGS1bZZotCHD
aX9Ov2PItezbdB2dyXD/QOFC/0r0vJS3X5jzJsMlsuOGMGQWa42IiEAyzGWc
btdGFg3Uzt3ykAwKFbcseJHV0/Q7CuLJIBshdn+Yk4Cjv03Zjr4jg9Hj+fst
yBdYreRJ+WQICLKxaUcO2mZr6ldJho+q/WQKcrzlOS/+X2TojskxEkHfl3fr
YsyrPjJ8GXdwtED++dazWINChus+9J0vkCd/+g7WLZDha85IMhu6fvZb2pxZ
HBSw37cv0xtZYK3u0+urKLD3k4v6HLLEW31FfSEK8I15S/6HxmObllGRgCgF
hPymj+1H47Xnp6lZhxQFuCicaTPIes5mpCQ5CviH+PJVofE2W7D08VCmgMVs
nnEyeh52j6x596lToE5rSDsGPS9XOdt4zn0UyFQjfY5bjdbL5zNqjQcp0KZg
F5GFnm/wsXPlzwwoIOXTFtKCnn+i/8VR1eMUaNh8k+O4ENpPirmJEFsKsGpe
/PgEzZ9i9mSObgcK8Pd7PxhE86snfEAq/DIFTh6sb0nbgO7nue3xkTAKLPyZ
duuQICB9YO6cdgQF0lk+L4RIEbB/a4znk8cUIFRLvgOa/6eymsP1XlKgO7Jq
w88tBMSUHylP/EwB8qL4xdtKBChwTzYSpRT4NzFAJFiFgHyTe91HvlGg8Y1w
bhRaby3NVbMLvyhwXUfFpxGtT+GRA2o2ZArc3fGfeJYWAY/4dsYLbpqC3AIR
1+/HCNhk9iPVRX4KEtv2JRlaoP3h8eX8YuUpUJrV8Km1IqBBMq3JXXMK4G1R
UMdJAlZvl+WtsZiCgNB7OTKOaL1abfAJDJmCbj9GGY8/AQEJ88do41Mgbaf7
YuUrNL9U8zy2UafQ/pFY4p6ExqPkykP7mSmYtSu1bEwmoKBvtKGBYxp+WX4Q
C0X73/SW1iNpEtOgmj566CPaH+3f5Zg4Hp2GnzPfP81WovHf7+EWZzUN7UY8
+zmrCfjzXTG86dQ0fBjeP8dTi8aL/LL2oMs0zAwd6FisJ+DH9kdGkgHTsPKz
pnEU2r8P5LsbtHyYhismc33nSOh+DBVc+AumoTrnedPCIAEdbaTQQ8XTcG34
vNuDYQJ85k9VZddOg232cELsGAGZYKT/kDQNBSUOsXZTaP02cDpVjaHfz3xw
rBC9b4zPlgYvTk1DfkRd3zoaAcMBGl/d/kzDnZb+ygwGAVJf5fQM11Ph9Qd+
oYg5tD6s+s/dEaeCcrjrho/zBHweig/K20yF2y55rr/R++8Et3C5rCoV5Nwb
DNhZZiDCmF1nhQEVtj/znljDjuqfziL7vUeo4KVUd52dYwYU3f0DPCyp8JSL
dWYKuerBdEn3WSr4cZfyf1qJ6rufPdqf/ahwJSBGhYt3BoJGChP97lBBXtZC
pguZmyWOTSOUCtnWprVpq9D7Xsm6PCcK/f/bnsy9qD54orN7i1csFRglz7cS
yGI264K3v6RCxKhMYwaqJ7aENOpnZFJB0HCv7GpUf6TEZSS7faTCxy9JAjnI
ytnh3IqFVEjKakqyQvXKnl6DmuQaKlzN9jC4i+obQ81S0xeDVKiQvVGei+qh
umPPM85MUEG8Q918F6qXzJ1vrpGkUWGwa+ON98inovb+eMZKAzB+KPwM1Vc9
qRt22HDRYGGTYxE3qr/OlzL+28BPA935EW8vZHdylmWUGA3OZaT6aaH6bZrj
Ya75ZhoMHTZajEO+JnZpvaACDT69sfozg3zbYFvr/d00YC2f+fkG1YP/vXx5
KtSMBntWbkroRPXjhoI7Xw5Z08A0IePTZlRvxjbYSXCcoYH74sf1TshJCxt7
7rjRwCaWfZiErLB2Vlvbiwbq2X9CpFG9mqHQkvjHD12PVVehDXLe8UgH/1Aa
TDzw0fmKvM/ds1zjAQ0SdwnnE8glQUe3EFE0kJ21W7cV1cvV71cNeb2kQWvG
ndpAZNOqUf0dKTR4XnfZKB35Z1dV8lQmDaznNWeakTt4/7ngXkiDUzXXZDaj
+v3MJocaxQoabGcalx5CJu05oDhWQwPPr9/qnZEnzy9MOLXSQFI5xjsZ+cr1
dlPZHhrUnKpU+IpMPMrPGBikwckQs7A+ZNZib4+zNBokHIi4th6dP4KbzX9I
ztHg4nSZlCoyz4Taji5WOggEn0zSR14rOkmz4afDnOtZ7yvI0aq1liLCdMi4
tf1XCLK4fkrubzE6wICq1jNkWS9HHwsFOpyJ97UoQlba222eoEqHd3y98/g8
tZPlhMroLjqcJlrJncgH7xkM3tKhg9G4zY8ZZAOz0pJqAzqsN82t58R5xQbN
uHVH6SBaZrxDCPn0K0WL1FN0sDczOqSAfP7CaxWGPR101uWxquPzvaoE7wEX
OoQIu2oCzhc+85c2e9PBueYimCHfCQiNk75Oh3rOjWtPIoceZvV1DaBD9tF2
fwd8vm2aVmF7QIfXaUbr8Xk1LuYir0kUHZRlRs39kF+dGRh88owO7/l81e8g
Z43/ilNKpoNTlBczHJ/Ps0x9fdLpEHowqPs/nGf5VFqUZdNBklbr/xS5jj2f
17qEDr+f5XS9RP5VrTb0spIOXbebUpNx/hORUjr5HV1vuOLeNJwfisX6BrXR
YXeqRBI+v0/1rbWs70Hj3bE7DJ/vieRwVdEhOiSH3t3zBeeP6reGMqh0aMhI
5MD5wKo5ZunsDB0OFXPKV+J8oeRyvB4LA0xshiWrcZ5pYm/ZvooBU7Hm0fU4
XxRqV5UVYsDxG1/EfiArt5qv8hBhwAUux5tNyPvO65VxyjLAosywpwWf77cV
xh9TZMCh4ZL+NmTDqV1+sdsZoCBDru7AedUNebXtwEDnHFFDnJ/Y6SSuuqHH
AFuxyoFenE9wiw5XGjEg/kawcz+yVxRvgu0JBnhtmVLB+Yz/ySC/5NMM6PH6
4Y3zmwDpBUvqOQa82bDz7TByRNrkqjAPBmyLs+zAec+TK07DP68xoNVpsBPn
QfEaPWUSNxlw8XRMA86L3lU0+mXfZQD5bdQ9nDd9+NfQajECXR+39XGcRxUc
K1MzfMIArrA9wjivKlm/jy8qjgG1+9q/YVd1Zg93v2RAeEW3J8636l8qlSuk
MGBvdocAzr+aXZISvDMZUDd05g32AP2JFe8XBkRpCufh/OzFgR1XOssYwJ5q
qYXzNrvwugcZ1ej61Go/YYu1ury708iAsf3sS/lcmwzHN/MWBiQdvx2PHX35
OWlLNwPeB39ix3mf1WdNNoLEgP15W89hN5p7asZSGWB512QNzg/vJ/CdcJ9l
wLGKalts47FkL21WJgT18iRh8+zWfSjIxYS5MIcR7KqA7rSB1Ux4ZrJFHueV
wXV+1bnrmPBh8Jk9to6o8FCoGBN4b61+il343lhKSYEJqivIs9jXF4b2Laoy
ITepWRbnpxoGgdaNu5kwqJB+BJsRKXH1pRYTJq689cbO7sl/5K3HhKuKM9HY
noqWGfrGTBChV+djq/hQakTMmWD30KAFO4VfjqPwDBM2LY6uxnmw88lS6Qgn
Joz5Wckt5ddvbLXs3ZlwzoVFC7tvmrDZ6c2EgYiV5tjPtSKvcV5nwveCUEfs
03dVIlsCmLD/R7wPtlhzdWZKGBMYLA5h2E/cWEdNnzBhjZzZG2yL/FhO6Xgm
VDx9k40tyLFnM/UVEyoNWEqwG47+hIpUdL/C7rXY92PdTz3JYoJROutvbONh
bl+XfCa8j6vuwebe+TpKs5gJ0ed/j2AH1bTXdX9nwtZXUzPYB9dfG3vfxARP
9/WsOO9ftBfkCmpnQsuv9yuxP6enyVj1MaGAo4YP22/28AH5ESZ89XIVwt5z
aMB2lsyEEkr8Bmz6w1t+tQz0+28viGNf3pr74TI7Adc+jW3BVvY+1nAQ1ekb
CtK3Yo8Vj4+vFUTnAnPZpX5H8qpQ7iFUN19QO7HUD3E8sVk2X5IAy2iDpX6J
zKvCg//KEpDrsqiO3Ue2trNFdfFqpZtL/RbbkIhoVk0CdnEN7cMW/bkt5+cB
AlKftyz1a1okKhtfHyagfdeLpX7O4wv2k9eOEODff2ip32ORu8BjiOreG0Hf
lvpB9SY7dScdCDBZfWWpf2RIunDjETpH3yp7v9RfOriuo41xk4DnOeFL/ae9
eiZ7Tt5DdZ2z5FJ/art3YVTRU3QOF/Rc6l8pvFahbn6D7k//genS9XEIpo+X
oPGoO7zU/+I9T3PO6SDAe+TWMexxmfyuQ6hOuv90eqlfVjtww6JFH+2Ti6+X
+mnh51Zqz2XNgInS5qV+m+lAxDYJiVloK9y/ZLGmGUsqaRY2j/+vPzdaZn+7
Km0OBLf9r39374JY/T/B82j8/mdlgWZxHbuF5f6fWDKp6MHWP8vmAfrZDupf
60/YMDdZsmj/v1tKz7HaKLIuOye0/LQU/a8dObx76urYlu3g6Z+zKmbFslWc
ttUZn2Vfdr2gIq+3BseyP6UHPFNcwblsf1aFo7Wdf83T4XfYPXvlsklJ0pEJ
17mWHSkvwp5vyb3siBjHyrNSPMu2ibStWzX014Tu65mEQt5l95MO+pSGrFr2
i/1qG7+f5Vt22j/eAk5Kq5cdYulgtIL+1+odiW9DvvMvO3rrs7TvRmuWfas4
PNoo/69NNlq+rpYRWPYB98qTAmF/nSBmL1NL/2uZsjePTU8K/r0/pVKFH4V/
7Uhlb/ymILRs+/fTUmEP/jrix6rw8sq/LqTKziwu/vX/AQ0mXWo=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.51},
  PlotRange->{{0, 5}, {1.501671370069192, 1.5707963267948968`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.547356360767786*^9, 3.547356374444083*^9}, 
   3.547356431279249*^9, 3.547356469890723*^9, 3.547356829606627*^9, 
   3.5473568757413893`*^9, {3.547356917414658*^9, 3.547356971116263*^9}, 
   3.54735715424037*^9, 3.547357293358913*^9, 3.547357424954854*^9, 
   3.5473575875839033`*^9, {3.5473576580775127`*^9, 3.547357676185232*^9}, 
   3.54735785422749*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"sol", "/", "den"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.547356994599629*^9, 3.547357013842976*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox["\[Pi]", "2"], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", " ", "\[Pi]"}], ")"}], " ", "r"}], 
    RowBox[{"8", " ", 
     SuperscriptBox["\[Sigma]", "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["g", "3"], " ", "\[Pi]", " ", 
     SuperscriptBox["r", "3"]}], 
    RowBox[{"128", " ", 
     SuperscriptBox["\[Sigma]", "6"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "r", "]"}], "4"],
    SeriesData[$CellContext`r, 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`r, 0, {
   Rational[1, 2] Pi, Rational[-1, 8] $CellContext`g 
    Pi $CellContext`\[Sigma]^(-2), 0, Rational[1, 128] $CellContext`g^3 
    Pi $CellContext`\[Sigma]^(-6)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.547357014273139*^9}]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["g", "2"]}], 
      SuperscriptBox["\[Sigma]", "2"]]}]], " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   SuperscriptBox["\[Sigma]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox["g", "2"], 
        SuperscriptBox["\[Sigma]", "2"]]], " ", 
      RowBox[{"BesselI", "[", 
       RowBox[{"0", ",", 
        FractionBox[
         SuperscriptBox["g", "2"], 
         SuperscriptBox["\[Sigma]", "2"]]}], "]"}]}]}], ")"}]}], 
  "g"]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"2", "Pi", " ", "g", " ", 
    RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", "\[CapitalTheta]", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"f", "[", "\[CapitalTheta]", "]"}], "^", "2"}]}], "/", "2"}],
       "/", 
      RowBox[{"\[Sigma]", "^", "2"}]}], "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]", ",", " ", "0", ",", " ", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.547355484692451*^9, 3.547355511465473*^9}}],

Cell[BoxData[
 RowBox[{"2", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["g", "2"], "+", 
        SuperscriptBox["r", "2"], "-", 
        RowBox[{"2", " ", "g", " ", "r", " ", 
         RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}]}], ")"}], "2"], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Sigma]", "2"]}]]}]], " ", "g", " ", "\[Pi]", " ", 
  "\[CapitalTheta]", " ", 
  RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}]], "Output",
 CellChangeTimes->{{3.547355499908098*^9, 3.54735551210219*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"readings", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.9", ",", "1", ",", "1.1", ",", "1.2", ",", "1.3", ",", "1.4", ",", 
     "1.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"a", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "Pi", " ", "g", " ", 
         RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", 
         RowBox[{"\[CapitalTheta]", "^", "2"}], " ", 
         RowBox[{"p", "[", "\[CapitalTheta]", "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"g", "\[Rule]", "1"}], "}"}]}], ")"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[CapitalTheta]", ",", "0", ",", " ", "Pi"}], "}"}]}], "]"}], 
    ",", " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", " ", "readings"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"b", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "Pi", " ", "g", " ", 
         RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], "  ", 
         RowBox[{"p", "[", "\[CapitalTheta]", "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"g", "\[Rule]", "1"}], "}"}]}], ")"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[CapitalTheta]", ",", "0", ",", " ", "Pi"}], "}"}]}], "]"}], 
    ",", " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", " ", "readings"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"a", "/", "b"}]}], "Input",
 CellChangeTimes->{{3.547355575989315*^9, 3.547355754442292*^9}, {
  3.547355813820446*^9, 3.547355900136569*^9}, {3.547355946419441*^9, 
  3.547355951439665*^9}, {3.547356213661537*^9, 3.547356213812396*^9}, {
  3.547357770347843*^9, 3.5473578051795053`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.0009444904767114567`", ",", "0.001260859800647923`", ",", 
   "0.0006318310465868653`", ",", "0.00011843258718092906`", ",", 
   "8.281653291231144`*^-6", ",", "2.155940110081476`*^-7", ",", 
   "2.086005890802327`*^-9"}], "}"}]], "Output",
 CellChangeTimes->{{3.547355696819434*^9, 3.547355738672882*^9}, 
   3.547355768712728*^9, {3.5473558149411592`*^9, 3.547355859134334*^9}, 
   3.547355900584712*^9, {3.5473559475272093`*^9, 3.547355951774598*^9}, {
   3.547356210214365*^9, 3.5473562145776043`*^9}, 3.5473562585586452`*^9, {
   3.547357781556971*^9, 3.547357805971979*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.04234382810511285`", ",", "0.06283185307184869`", ",", 
   "0.034644950267822584`", ",", "0.007086138859793898`", ",", 
   "0.0005369221832814741`", ",", "0.00001505552753388065`", ",", 
   "1.5610168303818493`*^-7"}], "}"}]], "Output",
 CellChangeTimes->{{3.547355696819434*^9, 3.547355738672882*^9}, 
   3.547355768712728*^9, {3.5473558149411592`*^9, 3.547355859134334*^9}, 
   3.547355900584712*^9, {3.5473559475272093`*^9, 3.547355951774598*^9}, {
   3.547356210214365*^9, 3.5473562145776043`*^9}, 3.5473562585586452`*^9, {
   3.547357781556971*^9, 3.547357806073222*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.022305269007962304`", ",", "0.020067206981880997`", ",", 
   "0.01823732006259207`", ",", "0.01671327496175734`", ",", 
   "0.01542430830593863`", ",", "0.014319924062639402`", ",", 
   "0.01336312235846975`"}], "}"}]], "Output",
 CellChangeTimes->{{3.547355696819434*^9, 3.547355738672882*^9}, 
   3.547355768712728*^9, {3.5473558149411592`*^9, 3.547355859134334*^9}, 
   3.547355900584712*^9, {3.5473559475272093`*^9, 3.547355951774598*^9}, {
   3.547356210214365*^9, 3.5473562145776043`*^9}, 3.5473562585586452`*^9, {
   3.547357781556971*^9, 3.547357806075366*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "\[Theta]", "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"g", "\[Rule]", "1"}], ",", 
      RowBox[{"r", "\[Rule]", "0.7"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "Pi"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "3"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.547355967172616*^9, 3.547356172997806*^9}, {
  3.54735622809345*^9, 3.5473562692440367`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13k0ldsbB3BT57yn4qLSRRmLMoYkFz07YyFjilA5kVBHNKjQHMolUV3K
WJmvKXOGRLpIrnoPKZRkKFMcEu9b/Pb97bX22uuz1l7PWt/v2v9seba/g5cA
Hx/fW7z/OwWfLm37rBuwLVLnv0XC+q+1BjJxtmAcYl+rh00Vanq+iz0Azvv3
HDDDLpqFDrF8b8j5W13CDXtw5ZG5slh/2PlPaX8w9p+STcL5VScgJfHp80fY
GRvcUvjygyA7R6S6E7tOb3KTY2owhPG5NIltJuG9+dX69NgLUIwsvjphUyrL
VULqL4HLw5MyD7HDtTsD06uugPI8x3see+UfqVVtJdeAk1/W4KxLQtp2X6G5
vHBIb6vVfoatsXPzLvnM63CMGC/W3kJCld3CHcvUSKgrSjDPw+44EKucFHsT
0pdFJdXo4Tw6Gls/N8bA4a7tBx23khCkF9cTVH8LpJzttXjYQuC+Pq0qDr53
tlCWf5DQYlzfrFtxG7KX6E8JGZBwy1yZ01JyBwJ3L+X9gy1jM1U2nfcXxBE2
Ij5GJAzY73GNyImHTTGuyhbbSMh1qlpck5kAKlEC5hpAwlb3azvMU++D3UhD
9OrtJDgclXwfH5sCjq6v1+8xI2H5Vnh61yIVglgNJiHmJExWBoh9akyF36x2
ueZakFBW01l6qj4NDoVsPb7OkgSTxtSF5KqHIPJUcOGSLQlKFqTdV/1HsMQ6
r/SbHQlLm5c81Kl4BOY1DXsPO5DQ3upr0VSSDr+plTlwnEhw526OmcrLBI/C
i4NfXElAe7z7DdSyIEW5/HGSOwnruhI2h+VkwSJDxtn1AAkj3QtdUpnZ4GIY
Ij/Fxv19bpI3Tc2FR8FfvMJ8cT88t+K7sQVgx+dr5RRMQtSqe4Z1woWwMeOF
+T+hJLwpuiar61AItmpdASYXSXAdcRuU6S4Em+4G833XSOC4LgvgjRVBu7fB
af4YEm4bHYlIEC0Bj9kwMe1MEt69c/QTcSoBGaNuPrMc3P9psLmSUAIPAvS7
PPJIyMyXWHlMoRSSgpxVK4tJeCLbmII2l4HkVZvO3joSPvIrlA/vrQDHNN8i
qgfnSxa+55ZYAdY3r1dk95Fw5I/5kNd9FfAu0MeRPUACL7DduMqnEmqkOtUn
R/H7GDjfFh38BPyFV3SE0iSovOge1E2phlcX51pc13DBoNFyqfGJOih9r33m
hycXRLkZ/+rF1cGolfeyYB8uDPQL3FEvroO6eX9rBocL0XxVspLTdSBY716v
E8SFfgNV3cnAZyDq5zb49ToXIh4vO5gcWA+cgfittYVc6ExpLaUCnsNMx9DI
R8EOOH7OxqP4eBMgQmnkRW0HWHIMs4iYJugQThYeed4BimyVb+4FTcCWbtZZ
8bIDOncyQomJJvBp9AgMetsBRpK18e5+zfD26IRs+GQHLK1Qb2cebgE3053n
ahU7If37cnBzbYUrnu4HvKM74ViFV7SAYjucv9x+8+yJt8D9spOVyebCycf+
kboP3sENzVm+MpcuGJ5PvP3vcDcEqDbdqUvvgWsmaN2vqA9AHfLL7+X0QdGW
n37G6X3ArtljF3O4H3L7Nu5vn/0Eh6a4dXURAzBmMlz+4uhn+HNTuX9G2BD4
PKhZH9M2AAJ15XpXz30BPb8VTmWqQyCmYtX2MX4ErC3M+iwzh2FHivHDydgx
SE6oyq0jvsLqb63mF8onIHK/dkTDtRG4988TfkGfSRhYKm50aW4UDNduX5Tz
nIIu9iWPozbjoNonOhB6kgeuJn8lGlRPQF6W+JHSwGkwNk5eKsuYhJAP7qRq
2AwMrn2a8r5iEgIMt1ol3/4Ofbu4VzLxHCrFlD0aMwtaXyN7DvDzoP34vYNB
D35A7bcbNeszeaBvobDQmzYHO97u47UaTUOzmX4WSpyHNBX2hWOvpiG9KEG/
P5cCj+ThorOeM7BKUc13fzYNgfQj08axGXjDT1yWrP4JLXF2DrrB36GUOJHR
3vwL2kPRjiv8s6C2StSX3bgAOkG3Q/PPzsK36NmVOp2LYLU58qnZ7Cwohodr
+vvyIQ258WoRrx/Qv6/7vfEwHzpf5S7v3voDdgyS86UcftR8dbLTa8scnAn0
OiIxzo9etnVOX4ubA5uy+5YSpwUQ2056D4M3BxM/fUMEZwXQT7v5BilTnOPt
pRLOCUE01SerXho9D9QRo4NnaUGk1fZSfa5rHtb+uuUacE4I8XTWHOOtpmDI
IrKFEFqColU0zLY4UdCg1AoykUtQhP0pa/0bFPgSGULyLAa6e6ng+LZSCl4K
RESZLGOgPW4zJqPYar98JA4LM9DMYnTaX2UUfJtS35ArxkBiChX0RDkFJ7tL
rXSlGOhiZ7Bq/BMKQvMbY3eqMlBYe98p7lMKYnYPygXuYqAfuvtSZpopKE9d
Z9Rwi4G+NJ+/+6aHgnWLpsHP4hho2USsl3Mvvu/uVfn0DgN9tDv6qhf7iFSG
bnUCA3lWe3kPf6BA6rayRmkaA7GmdZ5/76MgJFxFNrOIgR7zdsouDlBgzNnE
H/magV4tk7J+PkZBfqsdXCcZSPPfGE2jcQqkVQNCwzsYSOByeG4p9sxw0fyV
dwz06/LY0fQJCtI9dHghnxjow6TrqouTFBBOWz5zphhozkSElp+hoM3AsNFB
jInE9ZYv/52m4EbFKdp8BRPJdJ3ovYRtoVugZbCKiRw2KVuNYtdpKCQrSjJR
oIIvXf2TgmJ5ImhGjok2amoVuC5QEM/kbri7iYkuO1uyw/hpOET6/fnOlokq
A7RHY5g0yNml17+yZ6KXqe+MJ7B7Wj/MPXNkIsPr8VusCBr2vLD3ytnLRIdO
7uUJsmjYUam3LfgAE6XFFjw5vpQGjRTByTX+TKRmERqlJ0zDnO99x4PRTKRw
NFzrnDgNN889ZF6IYaLc+/X9r7GVbuRWJcUyUaOkhszGFTQ4ZVcpdt9lols2
N3U6sR8Pd087pTDR2s3WXSqraDjquea2VSET7d5kStSupqHPPYm75Q0ThZqb
/4hcQ0PQsfQIJy4TXT0VNMrFFgnNMzzZyUTWBZk+a9fSYJRY86joPRONPl4U
zMO+9773pNpnJlKK8C58IUPD7r0yqxRmmGhu18jQZzkamuxSnIQlCKRT8uZZ
4zoafJ8P1jJ/J1Al3S7+E1t4q9oGASkC+d0b+6m1ngYH2Upqdi2BMkzOJCZi
d4+/SelbT6D9gU3EMSUaJm4wRop18TzbyDuUMg0xC9aO+XoE6oufDVLZQINO
YFx1lj6BZu8FTLtgn3GRu5lkRCChpLjScmyBDX9sDjcj0OXmgMOcjTSsajx2
fp8TgV7wxs82qdBQsbVkePdeApnC/NgU9r6/KTtbFwLd2U/MS6nSkBwXrmjq
TqA0Z80eP+wN7LQmdS8C2fpHtRFqNBgucsX5TxHI+fQ8W1Odhg+B0iH0aQLJ
u0x7OWBfGvIY/H6GQC79Q/ynsF+8migfCSGQeUKFUCW2bSLhzr1KIK03s7qG
GjSw9Q0zM28TaHefl7mmJg0+46++99wlUMCvgnW22MfTDpiKJxAosjbqMgf7
AuvKp5AkPC+WvyYXO/Fds7RDBoHe9FSoyW2i4WGUq294Fu7DM5ppiJ2zfbyi
OodAvBSex17symzRPcoFBNoy5XnnT+zOs3tjfpYTiJv3aXYSu1f96wetJwS6
FbK2jdCiYeDTOXXvagL9Vv15nRz29M7kltd1BNJOFrbfhS0qNSiU2Uwgimp+
mIa9uu20Y89LAv3cYR1Uii1zmXgg1kagFf5OLU3Y6iOqEPKGQHQ2NTGObfkk
8Kx9N4HUtoVpa2vTYM8RagrrJVBI0mYBY2xnhbsS1R8JFDx82N4e2/tGZbHS
AIGyfjhxONicbVYCbkMEuq8gbhiCfZrXY3frC4Ea+e2vX8e+uo9vgh4jUFmD
04MH2JEisYZa3wiUKyfNyceOrVeMPDyF8yixKyux01QsNrz+TqAGw5NtbdhZ
H7pOM+YI5Nm7Lb4LuzDWt9GAwvPNbnz6hF1LRbEzFgjklfOAx8NuzJct6uZj
oQwr/ycUdiu7aFFUEHuhil9AhwauhImN+RIWSkiMaCKwu1u4icFMFnLj7xD5
Dbv//OHRQhYLnVuWxl2JPaI9pz+0jIXUE8ckpbCnhq5HSIuwkMtf5R9ksOfu
Sb+1E2WhW5/5FRWxF23y1oeJs5CE78shJWyGIJysWslCHRIrVVSwhcvb6ycl
WMinq3tMDXulH1tMSZKFJFMVNDWxpWVnDrhKs1CXx5fJTdgK5LX8mLUsZLlS
XVsbWyV89a9GWRaqLZzk/Wctg2wrWp6FNP//v6Lhf4hCZlQ=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->NCache[{{0, Pi}, {0, 3}}, {{0, 3.141592653589793}, {0, 3}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.5473560550210114`*^9, 3.547356173421225*^9}, {
  3.547356205059785*^9, 3.5473562697465153`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547355756011693*^9, 3.5473557601338778`*^9}, 
   3.5473558115895777`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.393740248651226`", ",", "3.0002428243605874`*^-24"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.54735576092653*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "/", "b"}]], "Input",
 CellChangeTimes->{{3.547355763274312*^9, 3.5473557641195307`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.26114778968915225`", ",", "0.062157029783061396`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5473557646322937`*^9, 3.547355770160214*^9}}]
}, Open  ]]
},
WindowSize->{1440, 852},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 7938, 214, 658, "Input"],
Cell[8520, 238, 2127, 39, 240, "Output"]
}, Open  ]],
Cell[10662, 280, 128, 2, 27, "Input"],
Cell[10793, 284, 92, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[10910, 289, 231, 6, 27, "Input"],
Cell[11144, 297, 97, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11278, 303, 804, 26, 58, InheritFromParent],
Cell[12085, 331, 413, 13, 27, "Output"]
}, Open  ]],
Cell[12513, 347, 94, 1, 27, InheritFromParent],
Cell[CellGroupData[{
Cell[12632, 352, 168, 3, 27, "Input"],
Cell[12803, 357, 70, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12910, 363, 32162, 760, 1618, "Input"],
Cell[CellGroupData[{
Cell[45097, 1127, 3027, 76, 86, "Print"],
Cell[48127, 1205, 4365, 108, 126, "Print"],
Cell[52495, 1315, 10399, 252, 306, "Print"],
Cell[62897, 1569, 11068, 268, 326, "Print"],
Cell[73968, 1839, 11735, 284, 346, "Print"],
Cell[85706, 2125, 13078, 316, 386, "Print"],
Cell[98787, 2443, 17091, 412, 506, "Print"],
Cell[115881, 2857, 32461, 780, 966, "Print"]
}, Open  ]],
Cell[148357, 3640, 14352, 250, 537, "Output"],
Cell[162712, 3892, 2398, 44, 524, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165147, 3941, 132, 2, 27, "Input"],
Cell[165282, 3945, 1030, 21, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166349, 3971, 132, 2, 27, "Input"],
Cell[166484, 3975, 954, 20, 235, "Output"]
}, Open  ]],
Cell[167453, 3998, 178, 3, 27, "Input"],
Cell[CellGroupData[{
Cell[167656, 4005, 101, 1, 27, "Input"],
Cell[167760, 4008, 694, 17, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168491, 4030, 135, 2, 27, "Input"],
Cell[168629, 4034, 992, 26, 89, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169658, 4065, 92, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[169775, 4070, 722, 15, 20, "Print"],
Cell[170500, 4087, 724, 15, 20, "Print"],
Cell[171227, 4104, 725, 15, 20, "Print"],
Cell[171955, 4121, 716, 15, 20, "Print"],
Cell[172674, 4138, 727, 15, 20, "Print"],
Cell[173404, 4155, 724, 15, 20, "Print"],
Cell[174131, 4172, 725, 15, 20, "Print"],
Cell[174859, 4189, 724, 15, 20, "Print"],
Cell[175586, 4206, 726, 15, 20, "Print"],
Cell[176315, 4223, 721, 15, 20, "Print"],
Cell[177039, 4240, 722, 15, 20, "Print"],
Cell[177764, 4257, 724, 15, 20, "Print"],
Cell[178491, 4274, 720, 15, 20, "Print"],
Cell[179214, 4291, 726, 15, 20, "Print"],
Cell[179943, 4308, 724, 15, 20, "Print"],
Cell[180670, 4325, 724, 15, 20, "Print"],
Cell[181397, 4342, 723, 15, 20, "Print"],
Cell[182123, 4359, 724, 15, 20, "Print"],
Cell[182850, 4376, 722, 15, 20, "Print"]
}, Open  ]],
Cell[183587, 4394, 4670, 84, 233, "Output"],
Cell[188260, 4480, 1394, 28, 232, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189691, 4513, 379, 8, 27, "Input"],
Cell[190073, 4523, 392, 12, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190502, 4540, 670, 18, 43, "Input"],
Cell[191175, 4560, 444, 12, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191656, 4577, 129, 2, 27, "Input"],
Cell[191788, 4581, 360, 11, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192185, 4597, 182, 4, 27, "Input"],
Cell[192370, 4603, 598, 19, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193005, 4627, 205, 5, 27, "Input"],
Cell[193213, 4634, 399, 13, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193649, 4652, 279, 7, 27, "Input"],
Cell[193931, 4661, 434, 15, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194402, 4681, 156, 2, 27, "Input"],
Cell[194561, 4685, 166, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194764, 4692, 297, 9, 27, "Input"],
Cell[195064, 4703, 368, 12, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195469, 4720, 177, 4, 27, "Input"],
Cell[195649, 4726, 176, 5, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195862, 4736, 71, 1, 27, "Input"],
Cell[195936, 4739, 261, 8, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196234, 4752, 294, 8, 27, "Input"],
Cell[196531, 4762, 277, 10, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196845, 4777, 279, 7, 27, "Input"],
Cell[197127, 4786, 2989, 56, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200153, 4847, 68, 1, 27, "Input"],
Cell[200224, 4850, 285, 8, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200546, 4863, 69, 1, 27, "Input"],
Cell[200618, 4866, 455, 13, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201110, 4884, 200, 5, 27, "Input"],
Cell[201313, 4891, 2179, 59, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203529, 4955, 129, 2, 27, "Input"],
Cell[203661, 4959, 787, 22, 89, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204485, 4986, 71, 1, 27, "Input"],
Cell[204559, 4989, 731, 14, 23, "Message"],
Cell[205293, 5005, 731, 14, 23, "Message"],
Cell[206027, 5021, 739, 14, 23, "Message"],
Cell[206769, 5037, 530, 11, 23, "Message"]
}, Open  ]],
Cell[207314, 5051, 92, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[207431, 5056, 117, 2, 27, "Input"],
Cell[207551, 5060, 114, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207702, 5066, 89, 2, 27, "Input"],
Cell[207794, 5070, 129, 4, 39, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207960, 5079, 127, 2, 27, "Input"],
Cell[208090, 5083, 408, 5, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208535, 5093, 71, 1, 27, "Input"],
Cell[208609, 5096, 224, 4, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208870, 5105, 257, 3, 43, "Input"],
Cell[209130, 5110, 2194, 46, 384, "Output"]
}, Open  ]],
Cell[211339, 5159, 155, 3, 27, "Input"],
Cell[211497, 5164, 149, 3, 27, "Input"],
Cell[211649, 5169, 154, 3, 27, "Input"],
Cell[211806, 5174, 136, 3, 27, "Input"],
Cell[211945, 5179, 329, 8, 27, "Input"],
Cell[212277, 5189, 436, 12, 27, "Input"],
Cell[212716, 5203, 177, 4, 27, "Input"],
Cell[212896, 5209, 579, 16, 27, "Input"],
Cell[213478, 5227, 262, 6, 27, "Input"],
Cell[213743, 5235, 413, 12, 27, "Input"],
Cell[CellGroupData[{
Cell[214181, 5251, 713, 17, 27, "Input"],
Cell[214897, 5270, 942, 23, 55, "Output"]
}, Open  ]],
Cell[215854, 5296, 721, 21, 78, InheritFromParent],
Cell[216578, 5319, 190, 3, 27, "Input"],
Cell[CellGroupData[{
Cell[216793, 5326, 1199, 23, 27, "Input"],
Cell[217995, 5351, 1878, 47, 55, "Output"]
}, Open  ]],
Cell[219888, 5401, 946, 29, 77, InheritFromParent],
Cell[220837, 5432, 196, 3, 27, "Input"],
Cell[CellGroupData[{
Cell[221058, 5439, 583, 14, 27, "Input"],
Cell[221644, 5455, 9764, 165, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231445, 5625, 235, 6, 27, "Input"],
Cell[231683, 5633, 874, 26, 51, "Output"]
}, Open  ]],
Cell[232572, 5662, 731, 24, 85, "Input"],
Cell[CellGroupData[{
Cell[233328, 5690, 579, 16, 27, "Input"],
Cell[233910, 5708, 613, 16, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[234560, 5729, 1869, 50, 88, "Input"],
Cell[236432, 5781, 625, 11, 33, "Output"],
Cell[237060, 5794, 621, 11, 33, "Output"],
Cell[237684, 5807, 614, 11, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238335, 5823, 553, 15, 27, "Input"],
Cell[238891, 5840, 4861, 84, 252, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243789, 5929, 122, 2, 27, "Input"],
Cell[243914, 5933, 157, 4, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[244108, 5942, 117, 2, 27, "Input"],
Cell[244228, 5946, 183, 4, 27, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
